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Appendix A 

Copyright © 2000 1 LOVE TV INC. (868970 Ontario Inc.) 
All rights reserved unless otherwise noted 

5 

File: Ravi Shanker 



import j ava. awt . * ; 
1 0 import j ava. applet. * ; 

import Java. lang.*; 

import netscape.javascript*; 

import j ava. io.*; 

import j ava.net. * ; 
1 5 import j ava.util. * ; 

import com.oreilly.servlet.HttpMessage; 

public class ChatClient extends Applet implements ISession 
20 { 



45 



netscape.javascript.JSObject 




m_JScriptWin; 


public String 


m_ 


strMessageHandler; 


public String 


m_ 


strErrorHandler; 


public String 


mJEtMh; 


public String 


m 


SponsorHandler; 


public String 


m_ 


LinksHandler; 


public String 


m 


AdHandler; 


public String 


m_ 


CommentsHandler; 


public String 


m 


CaptionHandler; 


public String 


m_ 


TimeHandler ; 


public String 


m_ 


ClipSource; 


public String 


m 


isAppletLoad; 


public Vector CurrentVector 


5 




public int StartTime=0; 






public int SponsorCurrent = - 


i; 




public int LinkCurrent = -1; 






public int BannerCurrent = -1 






public int CaptionCurrent = - 


i; 




public int CommentCurrent = 


= -i 


> 


public int WhatSec = -1; 






public void init() 
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10 



15 



super.init(); 

StartTime=0; 
SponsorCurrent = -1; 
LinkCurrent = -1; 
BannerCurrent = - 1 ; 
CaptionCurrent = -1; 
CommentCurrent = -1; 

WhatSec=-l; 

// Get the JavaScript window that will have the various scripts that 
// this applet will call. 

m_JScriptWin = netscape javascript JSObjectgetWindow(this); 

m_strMessageHandler = getParameter("MessageHandler"); 
m_EtMh = getParameter("ElapsedTimeMessageHandler"); 
m_strErrorHandler = getParameter("ErrorHandler"); 

20 m_SponsorHandler = getParameter("SponsorHandler"); 

m_LinksHandler = getParameter("LinksHandler M ); 

m_AdHandler = getParameter("AdHandler"); 

m_CommentsHandler = getParameter("CommentsHandler"); 

m__CaptionHandler = getParameter("CaptionHandler"); 
25 // Set the Javascript to handle if the applet has done it's init() 

m_isAppletLoad = getParameter("isAppletLoad n ); 

m_TimeHandler = getParameter('TimeHandler Tf ); 

30 m_ClipSource = getParameter( T, ClipSource M ); 

getNextMessage(0, 1 0 5 m_ClipSource); 
StartTime=10; 

35 if (m_JScriptWin != null) 

{ 

String Arguments[] = {"Done"}; 

m_JScriptWin.call(m_isAppletLoad ? Arguments) ; 

// System.outprintln("setting time here"+seconds); 

40 } 

} 

public void setStartTime() 

{ 

45 int seconds = 0; 

try 
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{ 

URL url = new mL("http:/^lanchelcn.net:8090/servlet/TimeServlet M ); 
HttpMessage msg = new HttpMessage(url); 

5 Properties props = new Properties(); 

props.put( M ClipSource n ,m_ClipSource); 

InputStream in = msg.sendPostMessage(props); 

1 0 //InputStream in = msg.sendGetMessage(); 

DatalnputStream data = new DataInputStream( 

new BufferedlnputStream(in)); 
String lastMessage = data.readLine(); 
15 seconds = Integer.parselnt(lastMessage); 

} 

catch (SocketException e) 

{ 

20 // Can't connect to host, report it and wait before trying again 

System.out.println( n Can't connect to host: " + e,getMessage()); 

} 

catch (FileNotFoundException e) 

{ 

25 // Servlet doesn't exist, report it and wait before trying again 

System.out.println("Resource not found: " + e.getMessage()); 

} 

catch (Exception e) 

{ 

30 // Some other problem, report it and wait before trying again 

System.out.println("General exception: " + 
e.getClass().getName() + ": " + e.getMessage()); 

} 

finally 
35 { 

StartTime = seconds ; 
if (m J Scrip tWin != null) 

{ 

String Arguments[] = {seconds+""}; 
40 m_JScriptWin.call(m_TimeHandler, Arguments); 

// System.out.println( n setting time here"+seconds); 

} 

getNextMessage(seconds,seconds+10 ? m_ClipSource); 
StartTime+=10; 

45 } 
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} 

public void start() 
{ 

5 

} 

public void stop() 

{ 

10 } 

public int BeginSession(String strAuthor, String strOptions, String strType, String 
strMessage) 
{ 

15 return SendMessage(strAuthor, strType, strMessage); 

} 

public int EndSession(String strAuthor, String strType, String strMessage) 

{ 

20 return SendMessage(str Author, strType, strMessage); 

} 

public int SendMessage(String strAuthor, String strType, String strMessage) 
{ 

25 if (strAuthor.length() < 0) 

return HandleSessionError(l, "Invalid author specified/'); 



30 



35 



if (strMessage.length() < 0) 

return HandleSessionError(2, "Empty message"); 

if (m_strMessageHandler == null) 

{ 

m_strMessageHandler = "HandleSessionMessage"; 

} 



if (mJScriptWin != null) 
{ 

String Arguments[] = {strMessage}; 
m_JScriptWin.call(m__strMessageHandler, Arguments); 

40 } 



return 0; 



} 



45 public void SendElapsedTime(String Time) 

{ 
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int m_time=0; 

try 

{ 

mtime = Integer.parseInt(Time)/1000; 

5 } 

catch(NumberFormatException nfe) 

{ 

System.outprintln( , TheError , '+nfe.toString()); 
m_time=0; 

10 } 

//System.out.println("time sent by applet = "+m_time); 
HandleEvent(m_time) ; 

//Object Arguments[] = {(new Integer(m_time))}; 
// m_JScriptWin.call(m_EtMh, Arguments); 



15 



//return 0; 



} 



public void HandleEvent(int ETime) 
20 { 

if(WhatSec < ETime) 

{ 

Vector Sponsor = (Vector) CurrentVector.elementAt(O); 
25 //System.outprintln( H size of the vector is = "+_Sponsor.size()+""); 

Vector Links = (Vector) CurrentVector.elementAt(l); 
//System.out.println( n size of the links vector is = t! +_Links.size()+ mr ); 
Vector _banner = (Vector) CurrentVector.elementAt(2); 

30 Vector _caption = (Vector) CurrentVector.elementAt(3); 

Vector _comment = (Vector) CurrentVector.elementAt(4); 

if(_Sponsor != null) 

for(int i = 0; i < _Sponsor.size();i++) 

{ 

Vector Spl =(Vector) _Sponsor.elementAt(i); 

40 

int xy =( (Integer) Spl.elementAt(0)).intValue(); 
//System.out.println("xy = "+xy+""); 

if(xy == ETime && SponsorCurrent != xy) 

{ 

45 if (m_JScriptWin != null) 

{ 
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SponsorCurrent=xy; 
String Arguments[] = 
{Sp 1 .elementAt( l)+"",Spl .elementAt(2)+ ,m ,Spl .elementAt(3)+""} ; 

m_JScriptWin.call(m_SponsorHandler, Arguments); 

5 } 

} 

else if(xy > ETime) 

{ 

break; 

10 } 

}// end for 1st for 
}// end of 1st if 

// for links 
15 if(l_Links !=null) 

{ 

for(int i = 0; i < _Links.size();i++) 
{ 

20 Vector Sp2 =(Vector) _Links.elementAt(i); 

if(Sp2 != null) 

{ 

int xz =((Integer)Sp2.elementAt(0)).intValue(); 
25 //System.out.println("xy = "+xy+""); 

if(xz == ETime) 

{ 

if (m_JScriptWin !=null) 
{ 

30 //System.out.println("xy = "+xz+""); 

String msg3=""; 

if( LinkCurrent = xz) 

{ 

msg3="old"; 

35 } 

else 

{ 

LinkCurrent=xz; 
msg3="new"; 

40 } 

String Arguments[] = 
{Sp2.elementAt(l)+ n,t ,Sp2.elementAt(2)+ M,f ) msg3+ ,m }; 

m_JScriptWin.call(m_LinksHandler, 

Arguments); 
45 } 

} 
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else if(xz > ETime) 

{ 

break; 

} 

5 } 

}// end of 2nd for 
} //end of 1st if 
// for ads 
if (_banner != null) 
10 { 

for(int i = 0; i < _banner.size();i++) 
{ 

Vector Sp3 =(Vector) baimer.elementAt(i); 

15 int az =((Integer)Sp3 .elementAt(0)).intValue(); 

//System.out.println("xy = "+xy+""); 

if(az == ETime && BannerCurrent != az) 
{ 

if (m_JScriptWin != null) 
20 { 

BannerCurrent=az; 
String Arguments[] = 
{Sp3.elementAt(l)+"",Sp3.elementAt(2)+"",Sp3.elementAt(3)+""} ; 

m_JScriptWin.call(m_AdHandler, Arguments); 

25 } 

} 

else if(az > ETime) 

{ 

break; 

30 } 
} 

} 



35 //for Caption 

if (^caption != null) 

{ 



40 



foifint i = 0; i < _caption.size();i++) 
{ 

Vector Sp4 =( Vector) _caption.elementAt(i); 



if(Sp4 != null) 
{ 

45 int nn =((Integer)Sp4.elementAt(0)).intValue(); 

//System.out.println("xy = "+xy+""); 
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if(nn == ETime) 

{ 

if (mJScriptWin != null) 
{ 

5 //System.out.println("xy = "+xz+""); 

String msg3=""; 

if( CommentCurrent == nn) 
{ 

msg3="old"; 

10 } 

else 

{ 

CommentCurrent^nn; 
msg3-'new"; 

15 } 

String Arguments[] = {Sp4.elementAt(l)+ m \ 



msg3+ m1 }; 

Arguments); 
20 } 



m_JScriptWin.call(m_CaptionHandler ; 



} 

else if(nn > ETime) 

{ 

break; 

25 } 

} 

}// end of for 
}// end of if 

30 

// for comment 

if (^comment != null) 

{ 

for(int i = 0; i < _comment.size();i++) 
35 { 

Vector Sp5 =(Vector) _comment.elementAt(i); 

if(Sp5 != null) 
40 { 

int mm =((Integer)Sp5.elementAt(0)).intValueO; 
//System.out.println("xy = "+xy+""); 
if(mm = ETime) 

{ 

45 if (m_JScriptWin ! = null) 

{ 
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//System.out.println("xy = "+xz+""); 

String msg3=""; 

if( CaptionCurrent == mm) 

{ 

5 msg3="old"; 

} 

else 

{ 

CaptionCurrent=mm; 
10 msg3- f new"; 



msg3+""}; 
15 Arguments); 



} 

String Arguments[] = {Sp5.elementAt(l)+ m, ? 
m_JScriptWin.call(m_CommentsHandler ? 

} 



} 

else if(mm > ETime) 

{ 

20 break; 



} 

}// end of for 
}//endofif 



} 



25 



// if the time left for the next call is 1 mins 
if(StartTime-ETime <=1) 

{ 

gelNextMessage(StartTrme,StartTime+10,m_ClipSource); 
30 StartTime=StartTime+10; 
} 



WhatSec = ETime; 



} 

35 } 



public void getNextMessage(int _Start, int_End, String ClipSrc) 

{ 

//System.out.println("in get next message durin init"); 
40 Object obj=null; 
try 

{ 

URL url = new URLC , 'http://blanche.tcn.net:8090/servlet/ILoveTvLiveServlet''); 
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//URL url = new 
URL( n http://torlife.^ 

art+ M &ElapsedTimeEnd="+_End+ M &ClipSource= n +ClipSrc); 
HttpMessage msg = new HttpMessage(url); 

5 

Properties props = new Properties(); 

props.put("ElapsedTimeStart r, ? _Start+ mT ); 

props.put( t, ElapsedTimeEnd M ) _End+ m '); 
10 props.put("ClipSource",ClipSrc); 

InputStream in = msg.sendPostMessage(props); 

//InputStream in = msg.sendGetMessage(); 

ObjectlnputStream result = new ObjectlnputStream(in); 



15 



obj = resultreadObject(); 

} 

20 catch (SocketException e) 

{ 

// Can't connect to host, report it and wait before trying again 
System.out.println("Can't connect to host: " + e.getMessage()); 

} 

25 catch (FileNotFoundException e) 

{ 

// Servlet doesn't exist, report it and wait before trying again 
System.outprintln("Resource not found: " + e.getMessage()); 

} 

30 catch (Exception e) 

{ 

// Some other problem, report it and wait before trying again 
System.out.println("General exception: " + 
e.getClass().getName() + " + e.getMessage()); 

35 } 

CurrentVector=( Vector)obj ; 

} 

public int HandleSessionError(int iNumber, String strDescription) 
40 { 

//System.out.println(iNumber + " : " + strDescription); 

if (m_strErrorHandler = null) 

{ 

45 m_strErrorHandler = "HandleSessionError"; 

} 
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if (mJScriptWin != null) 

{ 

String Arguments[] = {Integer.toString(iNumber), strDescription) 
m_JScriptWin.call(m_strErrorHandler, Arguments); 

} 

return iNumber; 
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Appendix B 
Excalibur 
5 File 

VERSION 5.00 

Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.0CX" 
Object = " {248DD890-BB45-1 1CF-9ABC-0080C7E7B78D}#1 .0#0"; "MSWINSCK.OCX" 
10 Begin VB. Form FrmLine21 Watch 

Caption = "Line21 Watch" 

ClientHeight = 2655 

ClientLeft = 60 

ClientTop =375 
15 ClientWidth = 11595 

LinkTopic = "Forml" 

MaxButton = 0 'False 

MinButton = 0 'False 

ScaleHeight = 2655 
20 ScaleWidth = 11595 

StartUpPosition = 3 'Windows Default 

Begin VB.CheckBox Field2 



25 



Caption 


= "Field 2" 


Enabled 


= 0 'False 


Height 


= 255 


Left 


= 9360 


Tablndex 


= 7 


Top 


= 2400 


Width 


= 975 



30 End 

Begin VB.CheckBox Fieldl 



35 



End 

40 Begin VB.CheckBox Protocol 

Caption = "Protocol" 

Enabled = 0 'False 

Height = 255 

Left = 8160 

45 Tablndex = 5 

Top = 2040 



Caption 


= "Fieldl" 


Enabled 


= 0 'False 


Height 


= 255 


Left 


= 9360 


Tablndex 


= 6 


Top 


= 2040 


Width 


= 855 
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Width = 975 
End 

Begin VB.ComboBox CBPort 

Height = 315 
5 Left = 6960 

Tablndex = 4 

Text = "Combo 1" 

Top = 2040 

Width = 975 
10 End 

Begin VB.TextBox EB_IP 

Height = 285 

Left = 5400 

Tablndex = 3 
15 Top = 2040 

Width = 1335 
End 

Begin MSWinsockLib.Winsock Winsockl 
Left = 960 
20 Top = 2040 

_ExtentX = 741 
_ExtentY = 741 
Version = 393216 
End 

25 Begin MSCommLib.MSComm MSComml 

Left = 240 

Top = 2040 

_ExtentX = 847 

_ExtentY = 847 
30 _Version = 393216 

DTREnable = -1 'True 

InputLen = 1 

RThreshold = 2 

SThreshold = 1 
35 End 

Begin VB.CommandButton BWatch 

Caption = "Watch" 

Height = 495 

Left = 2520 

40 Tablndex = 2 

Top = 2040 

Width = 1455 
End 

Begin VB.ComboBox CB_ComFl 
45 Height = 315 

Left = 4320 
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Style = 2 'Dropdown List 
Tablndex = 1 

Top = 2040 
Width = 855 



5 



End 



10 



15 



Begin VB.ListBox LB Triggers 

BeginProperty Font 
Name = "Courier New" 
Size = 8.25 

Charset = 0 
Weight = 400 
Underline = 0 'False 
Italic = 0 'False 
Strikethrough = 0 'False 

EndProperty 

Height = 1740 

Left = 120 

Tablndex = 0 

Top = 120 



20 Width - 11175 

End 
End 

Attribute VB_Name - "FnnLine21 Watch" 

Attribute VB_GlobalNameSpace = False 
25 Attribute VBCreatable = False 

Attribute VB_PredeclaredId = True 

Attribute VB_Exposed = False 

Dim Loading As Boolean 

Dim running As Boolean 
30 Dim COMF As String 

Dim SyncFlag As Boolean 

Dim SyncCount As Integer 

Dim mes As String * 1024 

35 Option Explicit 

Private Sub B_Watch_Click() 
If running = False Then 
BJWatch.Caption = "Stop" 
40 LBJTriggers.Clear 

Line21 Decode 0, 0, mes 
SyncFlag = False 
SyncCount = 0 
running = True 
45 If COMF <> "LAN" Then 

MSComml.CommPort- Val(Right(COMF, 1)) 
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MSComml. Settings = "9600 ? N,8,r 
MSComml.PortOpen = True 
Else 

Winsockl .RemoteHost = EB IP. Text 
5 Winsockl .RemotePort - CBJPort.Text 

Winsockl .Connect 
End If 
Else 

B_Watch.Caption = "Watch" 
10 running = False 

IfCOMF <> "LAN" Then 
MSComml.PortOpen = False 
Else 

Winsockl. Close 
15 End If 
End If 

End Sub 

20 Private Sub CB_ComFl_Click() 
Dim I As Integer 
Dim temp As String 

If Loading = False Then 
25 Loading = True 

COMF = CB_ComFl.List(CB__ComFl.ListIndex) 
IfCOMF = "LAN" Then 
EB JP .Enabled = True 
CB_Port.Enabled = True 
30 Else 

EBJP .Enabled = False 
CBPort.Enabled = False 
End If 

Loading = False 
35 End If 

End Sub 

Private Sub Form_Load() 
40 Dim temp As String 
Dim I As Integer 

Loading = True 
running - False 

45 COMF = GetSetting(APPNAME, SETTING, TCOMF, "COM1 ") 
ForI=lTo4 
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temp = "COM" + Format(I) 
CBComFLAddltem (temp) 
If COMF = temp Then 
CB_ComFl.ListIndex = CB_ComFl.ListCount - 1 
5 End If 
Next I 

CB_ComFl.AddItem ("LAN") 
If COMF = "LAN" Then 
CBComFLListlndex = CBComFl.ListCount - 1 
1 0 EB_IP.Enabled = True 
CB_Port.Enabled = True 
Else 

EBIP.Enabled = False 
CB_Port.Enabled = False 
15 End If 

EBIP.Text = GetSetting(APPNAME, SETTING, IP, "223.223.223.120") 
For I = 2000 To 9000 Step 1000 
CB_Port.AddItem (Format(I)) 
Next I 

20 CB_Port.Text = GetSetting(APPNAME, SETTING, PORT, "3000") 
Loading = False 

End Sub 

25 Private Sub Form_Unload(Cancel As Integer) 

SaveSetting APPNAME, SETTING, TCOMF, COMF 
SaveSetting APPNAME, SETTING, IP, EBJP.Text 
SaveSetting APPNAME, SETTING, PORT, CB_Port.Text 

30 End Sub 

Private Sub MSComml_OnComm() 
Dim Trig As Long 
Dim status As Integer 
35 Static Num As Integer 
Static Dat As String 
Dim CO As Long 
Dim CI As Long 
Dim C2 As Long 

40 

status = MSComml.CommEvent 
If status = 2 And running = True Then 
If SyncFlag = False Then 'Getting is sync is real ugly 

SyncCount = SyncCount + 1 'We watch for the protocol characters 
45 If SyncCount = 1 Then 

MSComml JnBufferCount = 0 
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Else 

Dat = MSComml .Input f and keep track of whether data is from 

Select Case Asc(Dat) 'field 1 , field 2 or both. 

Case 17, 129 We want to start capturing data on field 1 

5 Protocol. Value = 1 'if both fields or at the start of the 

If FieldL Value = 0 And Field2.Value = 1 Then 
Num = 3 
Else 

Num = 0 
10 End If 

FieldLValue = 1 'field data. 

Case 18, 130 
Protocol. Value = 1 
Num-0 
15 Field2. Value = 1 

Case 148, 28 'If it is not protocol data then we must 

If SyncCount > 2 And Protocol. Value = 0 Then 
Fieldl .Value = 1 'decide on the field based on the control 

Num = 1 'codes. 
20 End If 

Case 21, 157, 1, 2, 131, 4, 133, 134, 7, 8, 137, 138, 11, 140, 13, 14, 143 
If SyncCount > 2 And Protocol. Value = 0 Then 
Field2.Value - 1 
Num = 1 
25 End If 

Case Else 
Num = Num + 1 
End Select 

If SyncCount > 5 And (Fieldl. Value = 1 Or Field2.Value = 1) And Num = 2 Then 
30 SyncFlag = True 

If Protocol. Value = 1 Then 
MSComml .InputLen = 3 
Else 

MSComml .InputLen = 2 
35 End If 

End If 
End If 
Else 

Dat = MSComml .Input 
40 If Protocol. Value = 1 Then 

CO = CByte(Asc(Left(Dat, 1))) 

CI = CByte(Asc(Mid(Dat, 2, 1))) And 127 

C2 = CByte(Asc(Right(Dat, 1))) And 127 
Else 

45 IfFieldl.Value=lThen 
CO = 129 
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Else 
CO = 130 
End If 
End If 
5 Select Case CO 

Case 129, 17 
Trig = Line21Decode(l, CI, mes) 
If Mid(mes, 1, 1) <> Chr(O) Then 
LB_Triggers.AddItem (mes) 
10 End If 

Trig = Line21Decode(l, C2, mes) 
If Mid(mes, 1, 1) <> Chr(0) Then 

LB_Triggers.AddItem (mes) 
End If 
15 Case 130, 18 

Trig = Line21Decode(2, CI, mes) 
If Mid(mes, 1, 1) <> Chr(0) Then 

LB_Triggers.AddItem (mes) 
End If 

20 Trig = Line2 1 Decode(2, C2, mes) 

If Mid(mes, 1, 1) <> Chr(0) Then 

LB_Triggers.AddItem (mes) 
End If 
End Select 
25 End If 
End If 
End Sub 



30 Private Sub Winsockl_DataArrival(ByVal bytesTotal As Long) 

Static InputLen As Integer 

Static Num As Integer 

Static Dat As String 

Dim Trig As Long 
35 Dim CO As Long 

Dim CI As Long 

Dim C2 As Long 

If running = True Then 
40 If InputLen < 1 Or InputLen > 3 Then 
InputLen = 1 
End If 

While Winsockl.BytesReceived >= InputLen 
If SyncFlag - False Then 'Getting in sync is real ugly 
45 SyncCount = SyncCount + 1 'We watch for the protocol characters 

If SyncCount = 1 Then 
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MSComml.InBufferCount = 0 
Else 

Winsockl .GetData Dat, , 1 'and keep track of whether data is from 
Select Case Asc(Dat) 'field 1 , field 2 or both. 
5 Case 17, 129 'We want to start capturing data on field 1 

Protocol.Value = 1 'if both fields or at the start of the 
If Fieldl. Value = 0 And Field2.Value = 1 Then 
Num = 3 
Else 

10 Num = 0 

End If 

Fieldl .Value = 1 'field data. 

Case 18, 130 
Protocol.Value = 1 
15 Num = 0 

Field2.Value = 1 

Case 148, 28 'If it is not protocol data then we must 

If SyncCount > 2 And Protocol.Value = 0 Then 
Fieldl .Value = 1 'decide on the field based on the control 

20 Num = 1 'codes. 

End If 

Case 21, 157, 1,2, 131,4, 133, 134, 7, 8, 137, 138, 11, 140, 13, 14, 143 
If SyncCount > 2 And Protocol.Value = 0 Then 
Field2.Value = 1 
25 Num = 1 

End If 
Case Else 
Num = Num + 1 
End Select 

30 If SyncCount > 5 And (Fieldl.Value = 1 Or Field2.Value = 1) And Num = 2 Then 

SyncFlag = True 
If Protocol.Value = 1 Then 
InputLen = 3 
Else 

35 InputLen = 2 

End If 
End If 
End If 
Else 

40 Winsockl .GetData Dat, , InputLen 

If Protocol. Value = 1 Then 

CO = CByte(Asc(Left(Dat, 1))) 

CI = CByte(Asc(Mid(Dat, 2, 1))) And 127 

C2 = CByte(Asc(Right(Dat, 1))) And 127 
45 Else 

IfFieldl.Value=lThen 
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CO = 129 
Else 

CO =130 
End If 
5 End If 

Select Case CO 
Case 129, 17 
Trig = Line21Decode(l, CI, mes) 
If Mid(mes, 1, 1) o Chr(0) Then 
10 LBTriggers-Addltem (mes) 

End If 

Trig = Line21Decode(l, C2, mes) 
If Mid(mes, 1, 1) o Chr(0) Then 
LB Triggers-Addltem (mes) 
15 End If 

Case 130, 18 
Trig = Line21Decode(2, CI, mes) 
If Mid(mes, 1, 1) <> Chr(0) Then 
LBTriggers.Addltem (mes) 

20 End If 

Trig = Line21Decode(2, C2, mes) 
If Mid(mes, 1, 1) <> Chr(0) Then 
LB_Triggers.AddItem (mes) 
End If 
25 End Select 

End If 
Wend 
End If 

30 End Sub 
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Appendix B 

Copyright © 2000 I LOVE TV INC. (868970 Ontario Inc.) 
All rights reserved 

5 

Excalibur 

File: FrmLine21Watch.frm 
10 VERSION 5.00 

Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.0CX" 
Object = " {248DD890-BB45-1 1CF-9ABC-0080C7E7B78D}#1 .0#0"; "MSWINSCK.OCX" 
Begin VB.Form FrmLine21 Watch 
Caption = "Line21 Watch" 
15 ClientHeight = 2655 
ClientLeft = 60 
ClientTop = 375 
ClientWidth = 11595 
LinkTopic = "Forml" 
20 MaxButton = 0 'False 
MinButton = 0 'False 
ScaleHeight = 2655 
ScaleWidth = 11595 
StartUpPosition = 3 'Windows Default 
25 Begin VB.CheckBox Field2 



30 



35 



Caption 


- "Field 2" 


Enabled 


= 0 'False 


Height 


= 255 


Left 


= 9360 


Tablndex 


= 7 


Top 


= 2400 


Width 


= 975 



End 

Begin VB.CheckBox Fieldl 



Caption 


= "Fieldl" 


Enabled 


= 0 'False 


Height 


= 255 


Left 


= 9360 


Tablndex 


= 6 


Top 


= 2040 


Width 


= 855 



40 



End 

Begin VB.CheckBox Protocol 
Caption = "Protocol" 
45 Enabled = 0 'False 

Height = 255 



-39- 



Left = 8160 

Tablndex = 5 

Top = 2040 

Width = 975 
5 End 

Begin VB.ComboBox CB_Port 

Height = 315 

Left = 6960 

Tablndex = 4 
10 Text = "Combol" 

Top = 2040 

Width = 975 
End 

Begin VB.TextBox EB_IP 
15 Height = 285 

Left = 5400 
Tablndex = 3 
Top = 2040 

Width = 1335 
20 End 

Begin MSWinsockLib.Winsock Winsockl 
Left = 960 
Top = 2040 

ExtentX = 741 
25 _ExtentY =741 

_Version = 393216 
End 

Begin MSCommLib.MSComm MSComml 
Left = 240 
30 Top = 2040 

ExtentX = 847 
ExtentY = 847 
_Version = 393216 
DTREnable = -1 True 
35 InputLen = 1 
RThreshold = 2 
SThreshold = 1 
End 

Begin VB.CommandButton BWatch 
40 Caption = "Watch" 

Height = 495 
Left = 2520 
Tablndex = 2 
Top = 2040 

45 Width = 1455 
End 
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Begin VB.ComboBox CB_ComFl 

Height =315 

Left = 4320 

Style = 2 'Dropdown List 
5 Tablndex = 1 

Top = 2040 

Width = 855 
End 

Begin VB.ListBox LBTriggers 
10 BeginProperty Font 

Name = "Courier New" 
Size = 8.25 
Charset = 0 
Weight = 400 
15 Underline = 0 'False 

Italic = 0 'False 
Strikethrough = 0 'False 
EndProperty 
Height = 1740 
20 Left = 120 

Tablndex = 0 
Top = 120 

Width = 11175 
End 
25 End 

Attribute VBJName = "FrmLine21 Watch" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 

30 Attribute VB_Exposed = False 
Dim Loading As Boolean 
Dim running As Boolean 
Dim COMF As String 
Dim SyncFlag As Boolean 

35 Dim SyncCount As Integer 
Dim mes As String * 1024 



Option Explicit 

40 Private Sub B_Watch_Click() 
If running = False Then 
B__Watch.Caption = "Stop" 
LB_Triggers.Clear 
Line21 Decode 0 5 0, mes 

45 SyncFlag = False 
SyncCount = 0 
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running = True 
IfCOMFo "LAN" Then 
MSComml.CommPort = Val(Right(COMF, 1)) 

MSComml. Settings = "9600,N,8,1" 
5 MSComml .PortOpen = True 
Else 

Winsockl.RemoteHost = EBJP.Text 
Winsockl.RemotePort = CB _Port.Text 
Winsockl .Connect 
10 End If 
Else 

B_Watch.Caption = "Watch" 
running = False 
If COMF <> "LAN" Then 
1 5 MSCommLPortOpen = False 
Else 

Winsockl. Close 
End If 
End If 

20 

End Sub 

Private Sub CB_ComFl_Click() 
Dim I As Integer 
25 Dim temp As String 

If Loading = False Then 
Loading = True 

COMF = CB_ComFl.List(CB_ComFl.ListIndex) 
30 If COMF = "LAN" Then 

EB_IP.Enabled = True 

CB_Port.Enabled = True 
Else 

EBJP.Enabled = False 
35 CB_Port.Enabled = False 

End If 

Loading = False 
End If 

40 End Sub 

Private Sub Form_Load() 
Dim temp As String 
Dim I As Integer 

45 

Loading = True 
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running = False 

COMF = GetSetting(APPNAME, SETTING, TCOMF, "COM1") 
For I = 1 To 4 
temp = "COM" + Fonnat(I) 
5 CB_ComFl.AddItem(temp) 
If COMF = temp Then 
CB_ComFl.ListIndex = CB_ComFl.ListCount - 1 

End If 
Next I 

1 0 CB_ComF 1 . Addltem ("LAN") 
If COMF = "LAN" Then 
CB_ComFl.ListIndex = CBComFl.ListCount - 1 
EBIP.Enabled = True 
CB_Port.Enabled = True 

15 Else 

EB_IP.Enabled = False 
CB_Port.Enabled = False 
End If 

EB_IP.Text = GetSetting(APPNAME, SETTING, IP, "223.223.223.120") 
20 For I = 2000 To 9000 Step 1000 
CB_Port.AddItem (Format(I)) 
Next I 

CB_Port.Text = GetSetting(APPNAME, SETTING, PORT, "3000") 
Loading = False 

25 

End Sub 

Private Sub Form_Unload(Cancel As Integer) 
SaveSetting APPNAME, SETTING, TCOMF, COMF 
30 SaveSetting APPNAME, SETTING, IP, EBJP.Text 

SaveSetting APPNAME, SETTING, PORT, CB_Port.Text 

End Sub 

35 Private Sub MSComml_OnComm() 

Dim Trig As Long 

Dim status As Integer 

Static Num As Integer 

Static Dat As String 
40 Dim CO As Long 

Dim CI As Long 

Dim C2 As Long 

status = MSComml.CommEvent 
45 If status = 2 And running = True Then 

If SyncFlag = False Then 'Getting is sync is real ugly 
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SyncCount = SyncCount + 1 ! We watch for the protocol characters 
If SyncCount = 1 Then 
MSComml .InBufferCount = 0 
Else 

5 Dat = MSComml .Input ! and keep track of whether data is from 

Select Case Asc(Dat) 'field 1 , field 2 or both. 

Case 1 7, 129 We want to start capturing data on field 1 

Protocol. Value = 1 'if both fields or at the start of the 

If Fieldl. Value = 0 And Field2. Value = 1 Then 
10 Num = 3 

Else 
Num = 0 
End If 

Fieldl .Value = 1 'field data. 

15 Case 18, 130 

Protocol.Value = 1 
Num = 0 
Field2.Value = 1 

Case 148, 28 'If it is not protocol data then we must 

20 If SyncCount > 2 And Protocol.Value = 0 Then 

Fieldl .Value = 1 'decide on the field based on the control 

Num = 1 'codes. 
End If 

Case 21, 157, 1, 2, 131, 4, 133, 134, 7, 8, 137, 138, 11, 140, 13, 14, 143 
25 If SyncCount > 2 And Protocol.Value = 0 Then 

Field2.Value = 1 
Num = 1 
End If 
Case Else 
30 Num = Num + 1 

End Select 

If SyncCount > 5 And (Fieldl .Value = 1 Or Field2.Value = 1) And Num - 2 Then 
SyncFlag = True 
If Protocol.Value = 1 Then 
3 5 MSComml .InputLen = 3 

Else 

MSComml .InputLen = 2 
End If 
End If 
40 End If 

Else 

Dat = MSComml .Input 
If Protocol.Value = 1 Then 
CO - CByte(Asc(Left(Dat, 1))) 
45 CI = CByte(Asc(Mid(Dat, 2, 1))) And 127 

C2 = CByte(Asc(Right(Dat, 1))) And 127 
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Else 

If Fieldl. Value = 1 Then 
CO = 129 
Else 

5 CO = 130 

End If 
End If 

Select Case CO 
Case 129, 17 
10 Trig = Line21Decode(l, Cl,mes) 

If Mid(mes, 1, 1) o Chr(0) Then 
LB_Triggers.AddItem (mes) 
End If 

Trig = Line21Decode(l, C2, mes) 
15 If Mid(mes, 1, 1) o Chr(0) Then 

LBTriggers.Addltem (mes) 
End If 
Case 130, 18 
Trig = Line21Decode(2, CI, mes) 
20 If Mid(mes, 1, 1) o Chr(0) Then 

LB_Triggers.AddItem (mes) 
End If 

Trig = Line21Decode(2, C2, mes) 
If Mid(mes, 1, 1) o Chr(0) Then 
25 LB Triggers.Addltem (mes) 

End If 
End Select 
End If 
End If 
30 End Sub 

Private Sub Winsockl_DataArrival(ByVal bytesTotal As Long) 

Static InputLen As Integer 
35 Static Num As Integer 

Static Dat As String 

Dim Trig As Long 

Dim CO As Long 

Dim CI As Long 
40 Dim C2 As Long 

If running = True Then 
If InputLen < 1 Or InputLen > 3 Then 
InputLen = 1 

45 End If 

While Winsockl .BytesReceived >= InputLen 
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10 



If SyncFlag = False Then 'Getting in sync is real ugly 
SyncCount = SyncCount + 1 'We watch for the protocol characters 
IfSyncCount=lThen 
MSComml.InBufferCount = 0 
Else 

Winsockl .GetData Dat, , 1 'and keep track of whether data is from 
Select Case Asc(Dat) 'field 1, field 2 or both. 

Case 17, 129 'We want to start capturing data on field 1 

Protocol. Value = 1 'if both fields or at the start of the 
If Fieldl. Value = 0 And Field2. Value = 1 Then 
Num = 3 



Else 

Num = 0 
End If 

1 5 Fieldl .Value = 1 'field data. 

Case 18, 130 
Protocol Value = 1 
Num = 0 
Field2.Value = 1 

20 Case 148, 28 'If it is not protocol data then we must 

If SyncCount > 2 And Protocol. Value = 0 Then 
Fieldl .Value = 1 'decide on the field based on the control 

Num = 1 'codes. 
End If 

25 Case 21, 157, 1, 2, 131, 4, 133, 134, 7, 8, 137, 138, 11, 140, 13, 14, 143 

If SyncCount > 2 And Protocol. Value = 0 Then 
Field2.Value = 1 
Num = 1 
End If 
30 Case Else 

Num = Num + 1 
End Select 

If SyncCount > 5 And (Fieldl .Value = 1 Or Field2.Value = 1) And Num = 2 Then 
SyncFlag = True 
35 If Protocol. Value = 1 Then 

InputLen = 3 
Else 
InputLen = 2 
End If 
40 End If 

End If 
Else 

Winsockl .GetData Dat, , InputLen 
If Protocol. Value = 1 Then 
45 CO = CByte(Asc(Left(Dat, 1))) 

CI = CByte(Asc(Mid(Dat, 2, 1))) And 127 



-46- 



C2 = CByte(Asc(Right(Dat, 1))) And 127 
Else 

If Field 1. Value = 1 Then 
CO = 129 
5 Else 

CO = 130 
End If 
End If 

Select Case CO 
10 Case 129, 17 

Trig = Line21Decode(l, CI, mes) 
If Mid(mes, 1, 1) o Chr(0) Then 
LB_Triggers.AddItem (mes) 
End If 

1 5 Trig = Line21Decode(l , C2, mes) 

If Mid(mes, 1, 1) o Chr(0) Then 
LB_Triggers.AddItem (mes) 
End If 
Case 130, 18 
20 Trig = Line21Decode(2,Cl,mes) 

If Mid(mes, 1, 1) <> Chr(0) Then 
LB_Triggers.AddItem (mes) 
End If 

Trig = Line21Decode(2, C2, mes) 
25 If Mid(mes, 1, 1) o Chr(0) Then 

LB_Triggers.AddItem (mes) 
End If 
End Select 
End If 
30 Wend 
End If 

End Sub 



35 
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File: FrmLine21Watch.log 



5 Line 15: Class MSCommLib.MSComm of control MSComml was not a loaded control class. 

Line 18: The property name _ExtentX in MSComml is invalid. 

Line 19: The property name _ExtentY in MSComml is invalid. 

Line 20: The property name _Version in MSComml is invalid. 

Line 21 : The property name DTREnable in MSComml is invalid. 
1 0 Line 22: The property name RThreshold in MSComml is invalid. 
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File: Funt.c 



Copyright © 2000 1 LOVE TV INC. (868970 Ontario Inc.) 
5 All rights reserved 



#include <windows.h> 
10 #include <stdio.h> 
#include <string.h> 
#include "L21Dec.h" 
#include "sMachine.h" 

1 5 extern char MaxLength[CLAS SMAX] [RECORDMAX] ; 

extern char MrnLength[CLASSMAX] [RECORDMAX]; 

extern char XDSMes[CLASSMAX][RECORDMAX][MESLEN]; 

extern void (*XDSDisp[CLASSMAX][RECORDMAX])(); 

extern char *CType[]; 

20 . 

// When we start an XDS record we must remember which class it is from 

int XDSBegin(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 

{ 

25 cStatePtr->XDSClass = (ch - 1) / 2; 
return(TRUE); 

} 

// We art starting the XDS record so we must remember the record. If the record is 
30 // already open then we should give an overwrite error. Prepare the XDS data structure 
// for the record. 

int XDSStart(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 
{ 

35 cStatePtr->XDSRecord = ch; 

if(cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Open==TRUE) 

{ 

strcpy(mes,XDSSTART); 

strcat(mes,XDSMes[cStatePtr->XDSClass][cStatePtr->XDSRecord]); 
40 strcat(mes,OVERWRITE); 

cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Open = TRUE; 
cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Length = 0; 
cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].CheckSum=cStatePtr- 

45 >XDSClass * 2 + 1 + ch; 
rerurn(TRUE); 
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} 

// When we continue an XDS record we must save the record type. We check to see if the 
// record is open. If it is not then we give an error message and open it as if this 
5 // was a start. 

int XDSCont(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 
{ 

cStatePtr->XDSRecord = ch; 
10 if(cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Open = FALSE) 

{ 

strcpy(mes,XDSSTART); 

strcat(mes,XDSMes[cStatePtr->XDSClass][cStatePtr->XDSRecord]); 

strcat(mes,CONTNOSTART); 
1 5 cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Open = TRUE; 
cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Length = 0; 
cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].CheckSum = cStatePtr- 

>XDSClass * 2 + 1 + ch; 

} 

20 return(TRUE); 

} 

// When a character arrives for the XDS record we must add it to the checksum. We check 
// to see if this makes the record longer than the max length for this record. If not 
25 // then we store the data for this record and increment the record length. 

int XDSData(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 

cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].CheckSum+=ch; 
30 if(cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Length < 
MaxLength[cStatePtr->XDSClass][cStatePtr->XDSRecord]) 

cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Data[cStatePtr- 

>XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Length] = ch; 
cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Length++; 

35 return(TRUE); 

} 

// When we close an XDS record we must check to see that we have received enough data, 
// that we have not received too much data and mat the checksum is valid. Any of these 
40 // will cause error messages. If the record is OK then display the XDS data. This is 
// done through a look-up table of routines so each XDS record can be displayed 
// differently. 

int XDSEnd(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 
45 { 

cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Open = FALSE; 
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if(cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Length< 
MinLength[cStatePtr->XDSClass][cStatePtr->XDSRecord]) 

{ 

strcpy(mes,XDSSTART); 
5 strcat(mes,XDSMes[cStatePtr->XDSClass][cStatePtr->XDSRecord]); 

strcat(mes,TOOSHORT); 

elseif(cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Length> 
MaxLength[cStatePtr->XDSClass][cStatePtr->XDSRecord]) 

10 { 

strcpy(mes,XDSSTART); 

strcat(mes,XDSMes[cStatePtr->XDSClass][cStatePtr->XDSRecord]); 

strcat(mes,TOOLONG); 

} 

15 else 

if(((cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].CheckSum + 
XDSEND + ch) & 0x7f) != 0) 

{ 

20 strcpy(mes,XDSSTART); 

strcat(mes,XDSMes[cStatePtr->XDSClass][cStatePtr->XDSRecord]); 

strcat(mes,B ADCHECKSUM) ; 

} 

else 

25 XDSDisp[cStatePtr->XDSClass][cStatePtr->XDSRecord](mes,cStatePtr); 

} 

retum(TRUE); 
} 

30 // When we get a control character (0x10 to Oxlf) we must save it so we can use 
// it as part of a control pair with the next character. 

int ControlSave(long field, unsigned char ch, char mes[] , struct cState *cStatePtr) 
{ 

35 cStatePtr->CurrentCtrl[field - 1] = ch; 
return(TRUE); 
} 

// For each of the four possible streams for each field we must maintain a buffer of 
40 // the characters that have arrived for the stream. We will detect the "end of a caption 
// and dump the caption as a message. 

int DataSave(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 
{ 

45 int f ? c ? m; 
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f = field - 1; 

c = cStatePtr->Channel[f]; 
m = cStatePtr->Mode[fj; 
if(cStatePtr->TextLength[f][c][m] < 255) 

5 { 

cStatePtr->Text[f][c][m][cStatePtr->TextLength[f][c][m]] = ch; 

cStatePtr->TextLength[f] [c] [m]++; 

} 

return(TRUE); 
10 } 

// There are different types of captions. We store the type of caption for the stream. 

int PopOnDecode(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 

15 { 

intf; 

f= field - 1; 

cStatePtr->Mode[f] = CAP; 
20 if(cStatePtr->CurrentCtrl[f] < 0x1 8) 

{ 

cStatePtr->Channel[fj = CI; 
cStatePtr->Type[f][Cl] = POPUP; 

} 

25 else 

{ 

cStatePtr->Channel[f] = C2; 
cStatePtr->Type[f][C2] = POPUP; 

} 

30 return(TRUE); 
} 

int RollUpDecode(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 
{ 

35 int f, c; 

f= field - 1; 

cStatePtr->Mode[f] = CAP; 

if(cStatePtr->CurrentCtrl[f] < 0x18) 
40 c = Cl; 

else 
c = C2; 

cStatePtr->Channel[f] = c; 

if(ch == 0x25) 
45 cStatePtr->Type[f][c] = ROLLUP2; 

if(ch = 0x26) 



-52- 



cStatePtr->Type[f][c] =R0LLUP3; 
if(ch == 0x27) 

cStatePtr->Type[f][c] = ROLLUP4; 
return(TRUE); 
5 } 

hit PaintOnDecode(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 

{ 

intf; 

10 

f= field - 1; 

cStatePtr->Mode[f] = CAP; 
if(cStatePtr->CurrentCtrl[f] < 0x18) 

{ 

1 5 cStatePtr->Channel[fJ = CI ; 

cStatePtr->Type[f][Cl] =PAINTON; 

} 

else 

{ 

20 cStatePtr->Channel[f] = C2; 

cStatePtr->Type[f][C2] = PAINTON; 

} 

return(TRUE); 
} 

25 

int EndOfCaptionDecode(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 
{ 

intf; 

30 f= field -1; 

cStatePtr->Mode[f] = CAP; 
if(cStatePtr->CurrentCtrl[f] < 0x18) 

{ 

cStatePtr->Channel[f] = CI; 
35 cStatePtr->Type[fJ[Cl] = POPUP; 

} 

else 

{ 

cStatePtr->Channel[f] = C2; 
40 cStatePtr->Type[f][C2] = POPUP; 

} 

return(TRUE); 
} 

45 // If the stream is not a caption stream then it is a text stream and should be marked 
// as such. The type does not applie to the stream if it is a text stream. 
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int TextDecode(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 

{ 

intf; 

5 

f= field - 1; 

cStatePtr->Mode[f] = TXT; 
if(cStatePtr->CurrentCtrl[f] < 0x18) 

cStatePtr->Channel[f] = CI; 
10 else 

cStatePtr->Channel[f] = C2; 
return(TRUE); 

} 

1 5 // URLs are a special use of the T2 stream. We track the T2 stream outside of the 
// regular text streams so that we can monitor it for the URL checksum which we use 
// to determine the end of the URL. 

intURLDecode(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 

20 { 

cStatePtr->Mode[0] = TXT; 
cStatePtr->Channel[0] = C2; 
return(TRUE); 

} 

25 

// This is a tricky one. It is possible to change streams with a mid row code. In this 
// case we change where we put text. 

int ChannelChange(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 

30 { 

intf; 

f= field - 1; 

if((ch >= 0x20) && (ch <= 0x3 f)) 

35 { 

if(cStatePtr->CurrentCtrl[f] < 0x18) 

cStatePtr->Channel[fJ = CI; 

else 

cStatePtr->Channel[f] = C2; 

40 } 

return(TRUE); 

} 

// This is where we figure out what the current stream is an create a message which 
45 // includes the stream type, the caption type (if applicable) and the text we have 
// captured for this stream. We will call this if: we get a control pair carriage 
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// return, we get a possitioning code pair (PAC) or we see a checksum in the URL 
// stream. 

int DumpText(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 

5 { 

int f, c, m; 

f= field - 1; 

m = cStatePtr->Mode[f]; 
10 c = cStatePtr->Channel[f] ; 

if(cStatePtr->TextLength[f][c][m] > 0) 

{ 

if(field = FIELDl) 

{ 

15 if(m==CAP) 
{ 

if(c==Cl) 

{ 

strcpy(mes,ClSTART); 
20 strcat(mes, CType[cStatePtr->Type[f][c]]); 

} 

else 

{ 

strcpy(mes, C2START); 
25 strcat(mes, CType[cStatePtr->Type[f][c]]); 

} 

} 

else 

{ 

30 if(c == CI) 

{ 

strcpy(mes, Tl START); 
strcat(mes, SEVENSP); 

} 

35 else 

{ 

strcpy(mes, T2START); 
strcat(mes, SEVENSP); 

} 

40 } 

} 

else 

{ 

if(m==CAP) 

45 { 

if(c == CI) 
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{ 

strcpy(mes, C3 START); 
strcat(mes,CType[cStatePtr->Type[f][c]]); 

} 

5 else 

{ 

strcpy(mes, C4START); 
strcat(mes,CType[cStatePtr->Type[f][c]]); 

} 

10 } 

else 

{ 

if(c==Cl) 
{ 

15 strcpy(mes, T3 START); 

strcat(mes, SEVENSP); 

} 

else 

{ 

20 strcpy(mes, T4START); 

strcat(mes, SEVENSP); 

} 

} 

25 cStatePtr->Text[f][c][m][cStatePtr->TextLength[f][c][m]] = 0; 
strcat(mes, cStatePtr->Text[f][c][m]); 
cStatePtr->TextLength[f][c][m] = 0; 

} 

retuin(TRUE); 
30 } 
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File: L21Dec.c 

Copyright © 2000 I LOVE TV INC. (868970 Ontario Inc.) 
5 All rights reserved 

#include "windows.h" 
#include "stdio.h" 
10 #include n L21Dec.h n 
#include "sMachine.h" 

extern SVAL DataState[]; 
extern unsigned char parity []; 

15 

struct cState CCstate; 
struct cState *cStatePtr; 

#pragma warning(disable : 4133) 

20 

BOOL APIENTRY DllMain(HANDLE hlnst, DWORD ul_reason_being_called, LPVOID 
lpReserved) 

{ 

return 1; 

25 UNREFERENCED_PARAMETER(hInst) ; 

UNREFERENCED_PARAMETER(ul_reason_being_called); 
UNREFERENCED? ARAMETER(lpReserved) ; 

} 

30 _declspec(dllexport) LONG APIENTRY Line2 1 Decode(long field, unsigned char ch, char 
mes[]) 
{ 

inti,j; 

35 if(field==0) // Reset the finate state machine 
{ 

cStatePtr = &CCstate; 
cStatePtr->NextState[0] = DataState; 
cStatePtr->NextState[l] = DataState; 
40 cStatePtr->Channel[0] = C 1 ; 
cStatePtr->Channel[l] =C1; 
cStatePtr->Mode[0] = CAP; 
cStatePtr->Mode[l] = CAP; 
for(i = 0;i < CLASSMAX;i++) 

45 { 

for(j = 0y < RECORDMAX;j++) 
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cStatePtr->XDS[i][j].Open = FALSE; 

} 

} 

else if((field == 2) || (field = 1)) 

5 { 

ch &= 0x7f; 
mes[0] = 0; 

stateMachine(field, ch, mes); 
} 

10 return(O); 

} 



void stateMachine(long field, unsigned char ch, char mes[]) 
15 { 

SVAL *cstate; 

/* 

* This is the state machine driver. Each possible branch of a state 
20 * starts with a test. If the test is passed then the functions of that 

* branch are executed. The end of functions is indicated by a NULL 

* pointer. After the NULL pointer is a pointer to the next state. The 

* whole state is a single array containing sets of, the state test, 

* the functions for that state branch and the next state. The test of the last 
25 * set must be the default test which always returns true. 

*/ 

estate = cStatePtr->NextState[field - 1]; 
while(TRUE) 

30 if(cstate++->fptr(field, ch, mes, cStatePtr)) // Do the test for this branch 

while(*cstate->fptr) // Passed so execute all its functions 

{ 

cstate++->fptr(field, ch, mes, cStatePtr); 
35 } 

cStatePtr->NextState[field - 1] = (estate +l)->dptr; // Then return pointer to the next state 
break; 

} 

else // Failed this branch test so 

40 { 

while(*cstate++->fptr) // Skip over its functions 

cstate++; // Skip the state change to the 

} // start of the next branch set 

45 } 
} 
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declspec(dllexport) LONG APIENTRY ShiftRight(unsigned long value, long shift) 

{ 

return( value » shift); 

} 

declspec(dllexport) LONG APIENTRY ShiftLeft(unsigned long value, long shift) 

{ 

return(value « shift); 

} 
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File: L21Dec.def 



LIBRARY Line21 



CODE PRELOAD MOVEABLE DISCARDABLE 
DATA PRELOAD SINGLE 

EXPORTS 
Line21 Decode 
ShiftRight 
ShiftLeft 
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File: L21Dec.h 

_declspec(dllexport) LONG APIENTRY Line21Decode(long field, unsigned char ch, char 
mess[]); 

5 _declspec(dllexport) LONG APIENTRY ShiftRight(unsigned long, long); 
_declspec(dllexport) LONG APIENTRY ShiftLeft(unsigned long, long); 

void stateMachine(long field, unsigned char ch, char mes[]); 
void Def(char mes[], struct cState *); 
10 void Vcp(char mes[], struct cState *); 
void Typ(char mes[], struct cState *); 

int XDSBegin(long field, unsigned char ch, char mes[], struct cState *); 

int XDSStart(long field, unsigned char ch, char mes[], struct cState *); 
15 int XDSCont(long field, unsigned char ch, char mes[], struct cState *); 

int XDSStart(long field, unsigned char ch, char mes[], struct cState *); 

int XDSData(long field, unsigned char ch, char mes[], struct cState *); 

int XDSEnd(long field, unsigned char ch, char mes[], struct cState *); 

int ChannelChange(long field, unsigned char ch, char mes[], struct cState *); 
20 int DumpText(long field, unsigned char ch, char mes[], struct cState *); 

int ControlSave(long field, unsigned char ch, char mes[], struct cState *); 

int PopOnDecode(long field, unsigned char ch, char mes[], struct cState *); 

int DataSave(long field, unsigned char ch, char mes[], struct cState *); 

int RollUpDecode(long field, unsigned char ch, char mes[], struct cState *); 
25 int PaintOnDecode(long field, unsigned char ch, char mes[], struct cState *); 

int TextDecode(long field, unsigned char ch, char mes[], struct cState *); 

int URLDecode(long field, unsigned char ch, char mes[], struct cState *); 

int DefaultTest(long field, unsigned char ch, char mes[], struct cState *); 
30 int NullTest(long field, unsigned char ch, char mes[], struct cState *); 

int FlXDSTest(long field, unsigned char ch, char mes[], struct cState *); 

int ControlTest(long field, unsigned char ch, char mes[], struct cState *); 

int XDSStartTest(long field, unsigned char ch, char mes[], struct cState *); 

int XDSContTest(long field, unsigned char ch, char mes[], struct cState *); 
35 int XDSEndTest(long field, unsigned char ch, char mes[], struct cState *); 

int RollUpTest(long field, unsigned char ch, char mes[], struct cState *); 

int PopOnTest(long field, unsigned char ch, char mes[], struct cState *); 

int PaintOnTest(long field, unsigned char ch, char mes[], struct cState *); 

int EndOfCaptionTest(long field, unsigned char ch, char mes[], struct cState *); 
40 int TextModeTest(long field, unsigned char ch, char mes[], struct cState *); 

int PACTest(long field, unsigned char ch, char mes[], struct cState *); 

int CRTest(long field, unsigned char ch, char mes[], struct cState *); 

int CtrlChangeTest(long field, unsigned char ch, char mes[], struct cState *); 

int URLTest(long field, unsigned char ch, char mes[], struct cState *); 
45 int URLEndTest(long field, unsigned char ch, char mes[], struct cState *); 
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File: Line21.mak 

# Microsoft Developer Studio Generated NMAKE File, Format Version 40001 

# ** DO NOT EDIT ** 

5 

# TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102 

!IF M $(CFG)" == "" 
CFG=Line21 - Win32 Debug 
10 [MESSAGE No configuration specified. Defaulting to Line21 - Win32 Debug. 
[ENDIF 

!IF "S(CFG)" != "Line21 - Win32 Release" && "$(CFG)" != "Line21 - Win32 Debug" 
! MESSAGE Invalid configuration "$(CFG)" specified. 
1 5 'MESSAGE You can specify a configuration when running NMAKE on this makefile 
[MESSAGE by defining the macro CFG on the command line. For example: 
[MESSAGE 

'.MESSAGE NMAKE /f "Line21.mak" CFG="Line21 - Win32 Debug" 
[MESSAGE 

20 [MESSAGE Possible choices for configuration are: 
[MESSAGE 

[MESSAGE "Line21 - Win32 Release" (based on "Win32 (x86) Dynamic-Link Library") 
[MESSAGE "Line21 - Win32 Debug" (based on "Win32 (x86) Dynamic-Link Library") 
[MESSAGE 

25 [ERROR An invalid configuration is specified. 
[ENDIF 

[IF "$(OS)" == "Windows_NT" 
NULL= 
30 !ELSE 

NULL=nul 
[ENDIF 

#######################################« 

if iHHfif 

35 # Begin Project 

# PROP Target JLast_Scanned M Line21 - Win32 Debug" 
RSC^rc.exe 

MTL=mktyplib. exe 
CPP=clexe 

40 

!IF "$(CFG)" = "Line21 - Win32 Release" 

# PROP BASE Use_MFC 0 

# PROP BASE Use J)ebug_Libraries 0 
45 # PROP BASE Output_Dir "Release" 

# PROP BASE Intermediate Dir "Release" 
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# PROP BASE TargetDir "" 

# PROP Use_MFC 0 

# PROP Use_Debug_Libraries 0 

# PROP OutputDir "Release" 

5 # PROP Intermediate_Dir "Release" 

# PROP Target_Dir "" 
OUTDIR=.\Release 
INTDIR=.\Release 

10 ALL : "$(OUTDIR)\Line21.dll" 

CLEAN: 

-@erase ".\Release\Line21.dll" 

-@erase *'.\Release\XDSROM.obj" 
1 5 -@erase " .\Release\stable.obj " 

-@erase ".\Release\L21Dec.obj" 

-@erase *'.\Release\XDSMessages.obj" 

-@erase ".\Release\Tests.obj" 

-@erase ".\Release\funct.obj" 
20 -@erase ".\Release\Parity.obj" 

-@erase ".\Release\Line21.1ib" 

-@erase ".\Release\Line21.exp" 

"$(OUTDIR)" : 

25 if not exist "$(OUTDIR)/$(NULL)" mkdir "$(OUTDIR)" 

# ADD BASE CPP /nologo /MT /W3 /GX /02 ID "WIN32" /D "NDEBUG" /D 
" WINDOWS" /YX /c 

#ADD CPP /nologo /MT AV3 /GX /02 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /YX 

30 /c 

CPP_PROJ=/nologo /MT AV3 /GX /02 /D "WIN32" /D "NDEBUG" /D "_WINDOWS"\ 
/Fp"$(INTDIR)/Line21.pch" /YX /Fo"$(INTDIR)/" /c 
CPP_OBJS=.\Release/ 
CPP_SBRS= 

35 # ADD BASE MTL /nologo ID "NDEBUG" /win32 

# ADD MTL /nologo /D "NDEBUG" /win32 
MTL_PROJ=/nologo ID "NDEBUG" /win32 

# ADD BASE RSC /l 0x409 Id "NDEBUG" 

# ADD RSC /l 0x409 /d "NDEBUG" 
40 BSC32=bscmake.exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 

BSC32_FLAGS=/nologo /o"$(OUTDIR)/Line21 .bsc" 
BSC32_SBRS= 
45 LINK32=link.exe 
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# ADD BASE LINK32 kernel32.1ib user32.1ib gdi32.1ib winspool.lib comdlg32.1ib 
advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.lib odbc32.1ib odbccp32.1ib /nologo 
/subsystenr.windows /dll /machine:I386 

# ADD LINK32 kernel32.1ib user32.1ib gdi32.1ib winspool.lib comdlg32.1ib advapi32.1ib 
5 shell32.1ib ole32.1ib oleaut32.1ib uuid.lib odbc32.1ib odbccp32.1ib /nologo 

/subsystem: windows /dll /machine:I386 

LINK3 2 FLAG S=kemel3 2 . lib user32.1ib gdi32.1ib winspool.lib comdlg32.1ib\ 
advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.lib odbc32.1ib\ 
odbccp32.1ib /nologo /subsystem:windows /dll /incremental:no\ 
10 /pdb:"$(OUTDIR)/Line21.pdb'* /machine:I386 /def:".\L21Dec.def'\ 
/out:"$(OUTDIR)/Line21 .dll" /implib:"$(OUTDIR)/Line21 .lib" 
DEF_FILE= \ 

".\L21Dec.def" 
LINK32_OBJS= \ 
15 "$(INTDIR)/XDSROM.obj" \ 

"$(INTDIR)/stable.obj" \ 
"$(INTDIR)/L21Dec.obj" \ 
"$(INTDIR)/XDSMessages.obj" \ 
"$(INTDIR)/Tests.obj" \ 
20 "$(INTDIR)/funct.obj" \ 

"$(INTDIR)/Parity.obj" 

"$(OUTDIR)\Line21.dll" : "$(OUTDIR)" $(DEF_FILE) $(LINK32_OBJS) 
$(LINK32) @« 
25 $(LINK32_FLAGS) $(LINK32_OBJS) 

« 

1ELSEIF "$(CFG)" = "Line21 - Win32 Debug" 

30 # PROP BASE Use_MFC 0 

# PROP BASE Use_Debug_Libraries 1 

# PROP BASE Output_Dir "Debug" 

# PROP BASE Intermediate_Dir "Debug" 

# PROP BASE Target_Dir "" 
35 # PROP Use_MFC 0 

# PROP UseDebugLibraries 1 

# PROP Output_Dir "Debug" 

# PROP Intermediate_Dir "Debug" 

# PROP Target_Dir "" 
40 OUTDIR=.\Debug 

INTDIR=.\Debug 

ALL : "$(OUTDIR)\Line21.dll" 

45 CLEAN : 

-@erase ".\Debug\vc40.pdb" 
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-@erase 


,T .\Debug\vc40.idb" 




-@erase 


" .\Debug\Line2 1 .all 




-@erase 


.\Debug\stable.obj 




-@erase 


M .\Debug\L2lDec.obj M 


5 


-@erase 


'\\Debug\XDSMessages.obj 




-@erase 


.\Debug\l ests.oDj 




-@erase 


".\Debug\Parity.obj" 




-@erase 


".\Debug\funct.obj" 




-@erase 


".\Debug\XDSROM.obj" 


10 


-@erase 


".\Debug\Line2l.ilk" 




-@erase 


".\Debug\Line21.lib" 




-@erase 


".\Debug\Line21.exp" 




-@erase 


".\Debug\Line2l.pdb" 


15 


"$(OUTDIR) M : 





if not exist "$(OUTDIR)/$(NULL)" mkdir "$(OUTDIR)" 

# ADD BASE CPP /nologo /MTd AV3 /Gm /GX /Zi /Od ID "WIN32" /D " DEBUG" ID 
" WINDOWS" /YX /c 

20 # ADD CPP /nologo /MTd /W3 /Gm /GX /Zi /Od /D "WIN32" /D " DEBUG" ID 
•'WINDOWS" /YX /c 

CPP_PROJ=/nologo /MTd /W3 /Gm /GX /Zi /Od /D "WIN32" /D " DEBUG" ID 
"_WINDOWS"\ 

/Fp"$(INTDIR)/Line2l.pch" /YX /Fo"$(INTDIR)/" /Fd"$(INTDIR)/" Ic 
25 CPP_OBJS=.\Debug/ 
CPP_SBRS= 

# ADD BASE MTL /nologo ID "_DEBUG" /win32 

# ADD MTL /nologo ID " DEBUG" /win32 
MTL_PROJ=/nologo ID " DEBUG" /win32 

30 # ADD BASE RSC/l 0x409 /d"_DEBUG" 

# ADD RSC II 0x409 Id " DEBUG" 
BSC32=bscmake.exe 

# ADD BASE BSC32 /nologo 

# ADD BSC32 /nologo 

35 BSC32_FLAGS=/nologo /o"$(OUTDIR)/Line21.bsc" 
BSC32_SBRS= 
LINK32=lmk.exe 

# ADD BASE LINK32 kerael32.lib user32.lib gdi32.lib winspool.lib comdlg32.hb 
advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo 

40 /subsystem:windows/dll /debug /machine:I3 86 

# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib 
shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo 
/subsystem:windows /dll /debug /machine:I3 86 

LINK32_FLAGS=kernel32.lib user32.lib gdi32.lib winspooLlib comdlg32.lib\ 
45 advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib\ 
odbccp32.lib /nologo /subsystem:windows /dll /incremental:yes\ 
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/pdb:"$(0UTDIR)/Line21.pdb" /debug /machine:I386 /def:".\L21Dec.def'\ 
/out: "$(OUTDIR)/Line2 1 .dll" /implib:"$(OUTDIR)/Line2 1 .lib" 
DEF_FILE= \ 

".\L21Dec.def 
5 LINK32_OBJS=\ 

"$(INTDIR)/stable.obj" \ 

"$(INTDIR)/L21Dec.obj" \ 

"$(INTDIR)/XDSMessages.obj" \ 

"$(INTDIR)/Tests.obj" \ 
10 "$(INTDIR)/Parity.obj" \ 

"$(INTDIR)/funct.obj" \ 

"$(INTDIR)/XDSROM.obj " 

"$(OUTDIR)\Line21.dll" : "$(OUTDIR)" $(DEF_FILE) $(LINK32_OBJS) 
15 $(LINK32)@« 

$(LINK32_FLAGS) $(LINK32_OBJS) 

« 

IENDIF 

20 

.c{$(CPP_OBJS)}.obj: 
$(CPP) $(CPP_PROJ) $< 

.cpp{$(CPP_OBJS)}.obj: 
25 $(CPP) $(CPP_PROJ) $< 

.cxx{$(CPP_OBJS)}.obj: 
$(CPP) $(CPP_PROJ) $< 

30 .c{$(CPP_SBRS)}.sbr: 

$(CPP) $(CPP_PROJ) $< 

.cpp{$(CPP_SBRS)}.sbr: 
$(CPP) $(CPP_PROJ) $< 

35 

.cxx ($(CPP_SBRS)} .sbr: 
$(CPP) $(CPP_PROJ) $< 

40 ##### 

# Begin Target 

# Name "Line21 - Win32 Release" 

# Name "Line21 - Win32 Debug" 

45 

!IF "$(CFG)" == "Line21 - Win32 Release" 
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1ELSEIF "S(CFG)" == "Line21 - Win32 Debug" 



IENDIF 



mmm tm 

Till II II 

# Begin Source File 



mttMmmm 



10 SOURCE=.\Tests.c 
DEP_CPP_TESTS=\ 
".\Smachine.h"\ 
".\L21Dec.h"\ 



"$(INTDIR)\Tests.obj" : $(SOURCE) $(DEP_CPP_TESTS) "$(INTDIR) M 



# End Source File 

##### 

# Begin Source File 



If n n ji 
T"h"}} it 



SOURCE=.\L21Dec.c 
25 DEP_CPP_L21DE=\ 
".\L21Dec.h"\ 
".\Smachine.h"\ 



30 "$(INTDIR)\L21Dec.obj" : $(SOURCE) $(DEP_CPP_L21DE) "$(INTDIR)" 



# End Source File 
##### #####################################^ 

35 ##### 

# Begin Source File 



SOURCE=.\Parity.c 
40 "$(INTDIR)\Parity.obj M : $(SOURCE) "$(INTDIR)" 



# End Source File 
###############################################* 

45 ##### 

# Begin Source File 



!################## 
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SOURCE=.\stable.c 
DEP_CPP_STABL=\ 
"ASmachine.h'*\ 
5 ".\L21Dec.h"\ 



*'$(INTDIR)\stable.obj" : $(SOURCE) $(DEP_CPP_STABL) "$(INTDIR)" 

10 

# End Source File 

#################^^ 

1 1 ! i 1 1 1 1 I ! 

TTTf I rTTTT 
ft iTTTTtTt 

# Begin Source File 

15 

SOURCE=.\funct.c 
DEP_CPP_FUNCT=\ 

".\L21Dec.h"\ 

"ASmachine.h"\ 

20 

"$(INTDIR)\runct.obj" : $(SOURCE) $(DEP_CPP_FUNCT) "$(INTDIR)" 



25 # End Source File 

##### 

# Begin Source File 

30 SOURCE=.\L21Dec.def 

!IF "$(CFG) M = "Line21 - Win32 Release" 
IELSEIF "$(CFG)" == "Line21 - Win32 Debug" 

35 

1ENDIF 

# End Source File 

40 ##### 

# Begin Source File 

SOURCE=AXDSROM.c 
DEP_CPP_XDSRO=\ 
45 ".\L21Dec.h"\ 
"ASmachine.h"\ 
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"$(INTDIR)\XDSROM.obj" : $(SOURCE) $(DEP_CPP_XDSRO) "$(INTDIR)" 

5 

# End Source File 

##############################^ 
##### 

# Begin Source File 

10 

SOURCE=.\XDSMessages.c 
DEP_CPP_XDSME=\ 

".\L21Dec.h"\ 

".\Smachine.h"\ 

15 

"$(INTDIR)\XDSMessages.obj" : $(SOURCE) $(DEP_CPP_XDSME) "$(INTDIR)" 



20 # End Source File 

# End Target 

# End Project 

########################################^ 

# ti n ii 1 1 
i i it it it 
IIIIIItT 
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File: Line21.mdp 
JSGO_E^yyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyy^ 

yyyyyyyyyyyyyyyy^ 

yyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyy^ 

yyyyyyyyyyyyyy^ 

yyyyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyy^ 

yyyyyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyy^ 

yyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyy^^ 

yyyj^yyyy^yy^ 

yyy^yyyvyvyyyyyv vcbks40.mvb0_(_15 (E9s<mE& (EcsQP m 

bO_(_l 5 CE5S<mE& (E^sOam 

El yyyy Watch !_Watch2_Watch3_Watch4MLJL 15 (E9s<mE& CE9s0nm 

i 

AceE]_Jo^_Watchl_Watch2_Watcb3_Watch4MLJL15 (E9s<mE& (E9sOn m #$% 
&'()*+ Aoe__LINE21 - WIN32 DEBUG_{/nologo /MTd AV3 /Gm /GX /Zi /Od /D 
"WIN32" /D " DEBUG" ID "_WINDOWS" /Fp"Debug/Line21.pch" /YX /Fo"Debug/" 
/Fd"Debug/" /c _/nologo /D "_DEBUG" /win32 _/l 0x409 /d "_DEBUG" _/nologo 
/o"Debug/Line21.bsc" _y2_kernel32.1ib user32.1ib gdi32.1ib winspool.lib comdlg32.1ib 
advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.lib odbc32.1ib odbccp32.1ib /nologo 
/subsystem-.windows /dll /incremental:yes /pdb:"Debug/Line21.pdb" /debug /machine:I386 
/def:".\L21Dec.def'/out:"Debug/Line21.dll"/implib:"Debug/Line21.1ib" 

J:\Vb60\Line2 1 \Tests.c J:\Vb60\Line2 1 VL2 1 Dec.c J:\Vb60\Line2 1 VParity .c J:\Vb6 

0\Line21\stable.c J:\Vb60\Line21\functc J:\Vb60\Line21\L21Dec.def J:\Vb60\Line21\ 

XDSROM.c J:\Vb60\Line21\XDSMessages.c_LINE21 - WIN32 RELEASE_J/nologo 
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MT /W3 /GX /02 ID "WIN32" ID "NDEBUG" ID "_WINDOWS" /Fp"Release/Line21.pch" 
/YX /Fo"Release/" /c _/nologo ID "NDEBUG" /win32 _/l 0x409 Id "NDEBUG" __/nologo 
/o"Release/Line21.bsc" _y0_kernel32.1ib user32.1ib gdi32.1ib winspool.lib comdlg32.1ib 
advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.lib odbc32.1ib odbccp32.1ib /nologo 
5 /subsystem:windows /dll /incremental :no /pdb:"Release/Line21 .pdb" /machine:I386 
/def: " .\L2 1 Dec.def /out: "Release/Line2 1 .dll" /implib: "Release/Line2 1 .lib" 

J:\Vb60\Line2 l\Tests.c J:\Vb60\Line2 1 \L2 1 Dec.c J:\Vb60\Line2 1 \Parity.c J :\Vb6 

0\Line21\stable.c J:\Vb60\Line21\funct.c J:\\^60\Lme21\L21Dec.def J:\Vb60\Line21\ 

XDSROM.c J:\Vb60\Line21\XDSMessages.c Line21 - Win32 Release 

10 Line21.mak_CProject_Line21 - Win32 Release_Line21 - Win32 Release_e Line21 - 

Win32 Debug e SSBR CTargetltem SSBR .\Tests.c_ 

CFileltem SSBR 

.\L21Dec.c_ CFileltem SSBR 

.\Parity.c_ CFileltem SSBR 

15 Astable.c_ CFileltem SSBR .\funct.c_ CFileltem SSBR.\L21Dec.def_ 

CFileltem SSBR 

.\XDSROM.c_ CFileltem S SBR_.\XDSMessages.c_ 

CFileltem SSBR_dep_CDependencyContainer SSBR 

Smachine.h_CDependencyFile SSBR_L21Dec.h__CDependencyFile SSBR DJW_ 

20 dep CDependencyContainer SSBR 

Smachine.h_CDependencyFile SSBR_L2 1 Dec.h_CDependencyFile SSBR DJW_ 

DJW DJWE& (Ecst¥m-./0123456789 

~m_LINE21 - WIN32 DEBUG_{/nologo /MTd /W3 /Gm /GX /Zi lOd /D "WIN32" /D 
" DEBUG" ID "_WINDOWS" /Fp"Debug/Line21.pch" /YX /Fo"Debug/" /Fd"Debug/" /c 
25 Jjhologo ID "DEBUG" /win32 _/l 0x409 1 A "DEBUG" __/nologo /o"Debug/Line2 1 .bsc" 
_y2_kernel32.1ib user32.1ib gdi32.1ib winspool.lib comdlg32.1ib advapi32.1ib shell32.1ib 
ole32.1ib oleaut32.1ib uuid.lib odbc32.1ib odbccp32.1ib /nologo /subsystem: windows /dll 
/incremental:yes /pdb:"Debug/Line21.pdb" /debug /machine:I386 /def: "AL21 Dec.def 
/out:"Debug/Line21.dll"/implib:"Debug/Line21.1ib" 

30 J:\Vb60\Line2 1 \Tests.c J:\Vb60\Line21 \L2 1 Dec.c J:\Vb60\Line2 1 \Parity.c :\Vb6 

0\Line21\stable.c J:\Vb60\Line21\funct.c ^J:\Vb60\Line21\L21Dec.def_J:\Vb60\Line21\ 

XDSROM.c J:\Vb60\Line21\XDSMessages.c ^LINE21 - WIN32 RELEASE j/nologo 

/MT AV3 /GX /02 ID "WIN32" ID "NDEBUG" ID "_WINDOWS" /Fp"Release/Line21.pch" 
/YX /Fo"Release/" /c _/nologo ID "NDEBUG" /win32 _/l 0x409 Id "NDEBUG" _/nologo 
3 5 /o"Release/Line2 1 .bsc" _y0_kernel32.1ib user32.1ib gdi32.1ib winspoollib comdlg32.1ib 
advapi32.1ib shell32.1ib ole32.1ib oleaut32.1ib uuid.lib odbc32.1ib odbccp32.1ib /nologo 
/subsystem:windows /dll /incremental :no /pdb:"Release/Line21.pdb" /machine:I386 
/def:".\L21Dec.def ' /out:"Release/Line21.dll" /iE«& (Efst¥m;<=>?@ABC 



40 
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File: Line21.ncb 

Microsoft C/C++ program database 2.00 
5 JG^Anuz(pyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyyyy^^ 
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30 yyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyyy^^ 
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yyyyyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyyyyy^^ 

35 yyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyy^ 
40 yyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyyyyyyyy^^ 

yyyyj^yyyyyyyyyy^ 

yyyyyyyyyyyyyyyyy^ 

yyyyyyyyyyyyyyyy^ 
45 yyyyyyyyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyy^ 
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35 yyj^yyyyyy^ 

yyj^yyyyyy^ 
yyj^yyyyyyy^ 

40 yyyyyyyj^ 

yyi^yyyyyyyy^ 

yyj^yyj^yyyy^^ 

yyyyyyyS^y^^ 
45 yyyyj^yyjo^^ 



-74- 



yyj^yyyyyy^^ 

yyyyyyyyyy^^ 
yyj^yyyyyj^^ 

5 yyj^yyyyyy^^ 

yyyyyyyyy^^ 
yyyyyyyyyy^ 

yyyyyyyyyym 
yyyyyyyyyy^^ 

yyj^yyyyy^ 
yyj^yyyyyy^ 

yyj^yyyy^ 

15 yyyyyy>7^ 

yyj^yyyyyy^^ 
yyj^yyyyyyy^ 
yyyyyyyyyyj^ 

20 yy)^yyy5^ 

yyj^yyyyyy^^ 

yyj^yyyyyyj^ 

yyi^yyyy^ 

25 yyj^yyyyyyyySTym 

yyy^yyyyyyyyj^^ 

yyyyyyyyj^ 
yyyyyyyyj^ 

yyi^yyyyyy^^ 

30 yyj^yyyyyyyy)^ 

yyj^yyyyyy^^ 

35 yyj^yyy^y^ 
yyMyyyyyyyy^^ 

yyj^yyyyyyy^^ 
yyyyyyyyy^^ 

yyyyyyy)^ 

40 y^yyymyyy^ 

yyj^yyyyyyj^ 
yyyyyyyyyyy^^ 

yyj^yyyj^ 
45 yyj^yyyyyy^^ 

yyj^yyyyyyyy^^ 
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yyyyyyyy^ 

yyyyyyyyj^ 

yyyyyyyyyyy^ 

yyyyyyyyyy^^ 

yyj^yyyyyj^ 

yyyyyyyyy^^ 

yyyyyyyy^ 
yyj^yyyyyyyyyyy^ 

10 yjo^yyyyy^ 

yyj^yyyyyy^ 

yyyyyyyyyy^^ 
yyj^yyyyyyy^^ 

15 yyj^yyyyy^ 

yyj^yyyyyy^^ 

yyj^yyyyyyy^^ 
yyj^yyyyyyy^ 

20 yyj^yyyyyy^ 

yyj^yyyyyj^ 

yyyyyyyyyy5^ 
yyyyyyyym 

25 yyS^yyyyyyj^ 

yyj^yyyyyy^^ 

yyyyyyyyj^ 

yyj^yyyyyj^ 
yyj^yyyyyyy^ 

30 yyj^yyyyyyyyyyyy^ 

yyj^yyyyyyy^^ 

yyj^yyyyyy^ 

yyj^yyyj^ 

yy5^yyyyy^ 

yyyyyyyyy^^ 
yyyyyyyyyyyyj^^ 

yW9WWWyWWWyWWyWyyy\ n ° e Y _ s — - 3 

40 d_%o_J__K_o_a U_ 

|(5_ U-A_ b2D *_ H7D ;<,_ °Az_ £Fii_ "K *Pi U"— 0 3 A"— fzi 3 A"— 

^A«_ 03A"— 0 3 A"— ^ 3 A W — ^ S A"— 0 3 A"— fk u — ^A"— jif 3 A" — 0 3 A"— t 3 k u —t 3 A"— 

^A"— 0 3 A"— £ 3 A_10_{1™9 ,6z$_oz,oz<6z_±_ @_ 

_G 
45 §_0l 
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€ @€_ € ,B°8^z - ' ■_ B _A J@J'_ _€_ €SJ@_,_B<ee°87_±_ 

_€@_€_€ 

6D°8D"_x './P_N_{E_„@'_'@_,_B_A_H_ 0 ?™9B_§_P_„@^_'@_,_B 

15 °_^8°_u__€@ , @_@™9_u_ ~~ 

_„@ € , @_ °8__LINE21 - WIN32 DEBUGLINE21 - WIN32 RELEASELine21 - 

Win32 

DebugJ:\Vb60\Line2 1 \Tests.c<windows.h><stdio.h>"sMachine.h" "L2 1 Dec.h"DefaultTestint 
long fieldunsigned char chchar mes [ ]struct cState * 

20 cStatePtrNullTestFlXDSTestXDSStartTestXDSContTestXDSEndTestControlTestTextMode 
TestRollUpTestPaintOnTestPopOnTestEndOfCaptionTestPACTestCtrlChangeTestCRTestU 
RLTestURLEndTesa:\Vb60\Line21\Smachine.hSPTRSVALXDSStateXDSState::OpenBOO 
LXDSState::LengthXDSState::Datachar [ 33 

]XDSState::CheckSumcStatecState::CurrentCtrlint [ 2 
25 ]cState::ChannelcState::ModecState::Textchar [ 2 ] [ 2 ] [ 2 ] [ 256 ]cState::TextLengthint [ 2 
] [ 2 ] [ 2 ]cState::Typeint [ 2 ] [ 2 

]cState::XDSClasscState::XDSRecordcState::NextStateSVAL* [ 2 
]J:\Vb60\Lme21\L21Dec.hLine21Decode_declspec() LONG APIENTRYchar mess [ 
]ShifiRightunsigned longlongShiftLeftstateMachinevoidDefstruct cState 

30 *VcpTypXDSBeginXDSStartXDSContXDSDataXDSEndChannelChangeDumpTextControl 
SavePopOnDecodeDataSaveRollUpDecodePaintOnDecodeTextDecodeURLDecodeJ:\Vb60\ 
Line21\L21Dec.c"windows.h""stdio.h"DataStateSVAL [ Jparityunsigned char [ 
]CCstatestruct cStatecStatePtrDUMainBOOL APIENTRYHANDLE hlnstDWORD 
ul reason being calledLPVOID lpReservedunsigned long valuelong 

35 shiftt:\Vb60\Line21\Parity.cunsigned char [ 256 

]J:\Vb60\Line21\stable.cControlStateXDSStartStateXDSContStateXDSDataStateXDSEndSta 
teURLDataStateSTATETESTNEXT&DEFAULT&DNEXTDEFAULTJ:\Vb60\Line2 1 \funct 
.c<string.h>MaxLengthchar [ CLASSMAX ] [ RECORDMAX ]MinLengthXDSMeschar [ 
CLASSMAX ] [ RECORDMAX ] [ MESLEN ]XDSDispvoid(* [ CLASSMAX ] [ 
40 RECORDMAX ] ) ( )CTypechar* [ 

]EndOfCaptionDecodeJ:\Vb60\Line2 1 \XDSROM.cmpaaRatingstvpgRatingsflagmaskchar [ 
]typesJ:\Vb60\Line21\XDSMessagesxN_o_z_*_N_5_f_E_E__— 
3 6 f E 6 j a? f e°_u_ 

_ ± _b_z_d_A_ 1 /4J ±_s_6_n_jg^D_§_h_2_fiI> _^B_ J _\_+_0_<_YP_g_i_B. . ._e_u_a_iU 

45 ±x"§ABO o © ™ A 7 O Z 6 — 

{_Y_A_A_°_S_o6_:_x_Z_'_6_u_"§_C_n_(_x_P_ 1 &SJJi_B_tD_5JQ_±_JEj_ 
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_~~ ^JLD_?J0_{l™9L/names/ncb/targetinfo/ncb/moduleinfo/ncb/module/J:\Vb60\Line2 

1 \Tests.c/ncb/module/J:\Vb60\Line2 1 \Smachine.h/ncb/module/J:\Vb60\Line2 1 \L2 1 Dec.h/nc 
b/module/J:\Vb60\Line2 1\L2 1 Dec.c/ncb/module/J:\Vb60\Line2 1 \Parity.c/ncb/module/J:\Vb6 
5 0\Line2 1 \stable.c/ncb/module/J:\Vb60\Line2 l\funct.c/ncb/module/J:\Vb60\Line2 1 \XDSROM 
.c/ncb/module/J:\Vb60\Line21\XDSMessages.c/ncb/target/Line21 - Win32 

Debug/ncb/target/LINE21 - WIN32 RELEASE ,_?_'_" 

, '_P__G_p #_ 

UJ_(,8zL 5z,6z<5zo 

10 Ej«_'"_D\_u6za_„-zx_()uzL_8-z(_,0z_Euz6 

SzB_,_D aE_ □_40zJ yz_0yz_'$%&! "# 
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File: Line21Def.bas 

Attribute VB Name = "Line21Def 
5 Public Const APPNAME As String = "Line21 Watch" 
Public Const SETTING As String = "Settings" 
Public Const TCOMF As String = "COMF" 
Public Const IP As String = "IP" 
Public Const PORT As String = "Port" 

10 

Option Explicit 

Declare Function Line21 Decode Lib "Line21.dll" _ 
(ByVal field As Long, By Val ch As Byte, ByVal mes As String) 
15 As Long 

Declare Function ShiftRightLib "Line21.dll" _ 
(ByVal Val As Long, ByVal Shift As Long) As Long 

20 Declare Function ShiftLeft Lib "Line21 .dll" _ 

(ByVal Val As Long, ByVal Shift As Long) As Long 
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File: Line21 Watch. vbp 
Type=Exe 

5 Reference=*\G{00020430-0000-0000-C000- 

000000000046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.tlb#OLE Automation 

Object={648A5603-2C6E-101B-82B6-000000000014}#l.l#0; MSCOMM32.0CX 

Object-{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0;MSWINSCK.OCX 

Form=FrmLine2 1 Watch.fim 
10 Module=Line21Def; Line21Def.bas 

Startup= n FrmLine21Watch M 

HelpFile-" 1 ' 

Command32= m ' 

Name= M Line21Watch" 
15 HelpContextn> n 0" 

CompatibleMode= n 0" 

MajorVer=l 

MinorVei=0 

RevisionVer=0 
20 AutoIncrementVer=0 

ServerSupportFiles^O 

VersionCompanyName-'norpak" 

CompilationType=0 

OptimizationType=0 
25 FavorPentiumPro(tm)=0 

CodeViewDebugInfo=0 

NoAliasing=0 

BoundsCheck=0 

OverflowCheck=0 
30 FlPointCheck-0 

FDIVCheck=0 

UnroundedFP=0 

StartMode=0 

Unattended=0 
35 Retained=0 

ThreadPerObject=0 

MaxNumberOfThreads= 1 
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File: Line21 Watch. vbw 

FrmLine21 Watch = 115, 120, 649, 565, C, 46, 48, 580, 493, C 
Line21Def = 69, 72, 603, 517, C 



O 

m 

m 
u 

m 
a 
m 

Si 

a 
in 
a 

a 
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File: Parity.c 

Copyright © 2000 I LOVE TV INC. (868970 Ontario Inc.) 
5 All rights reserved 



unsigned char parity [25 6] = { 

10 0x80, 0x01, 0x02, 0x83, 0x04, 0x85, 0x86, 0x07, 
0x08, 0x89, 0x8a, 0x0b, 0x8c, OxOd, OxOe, 0x8f, 
0x10, 0x91, 0x92, 0x13, 0x94, 0x15, 0x16, 0x97, 
0x98, 0x19, Oxla, 0x9b, Oxlc, 0x9d, 0x9e, Oxlf, 
0x20, Oxal, 0xa2, 0x23, 0xa4, 0x25, 0x26, 0xa7, 

15 0xa8, 0x29, 0x2a, Oxab, 0x2c, Oxad, Oxae, 0x2f, 
OxbO, 0x31, 0x32, 0xb3, 0x34, 0xb5, 0xb6, 0x37, 
0x38, 0xb9, Oxba, 0x3b, Oxbc, 0x3d, 0x3e, Oxbf, 
0x40, Oxcl, Oxc2, 0x43, 0xc4, 0x45, 0x46, 0xc7, 
0xc8, 0x49, 0x4a, Oxcb, 0x4c, Oxcd, Oxce, 0x4f, 

20 OxdO, 0x51, 0x52, 0xd3, 0x54, 0xd5, 0xd6, 0x57, 
0x58, 0xd9, Oxda, 0x5b, Oxdc, 0x5d, Ox5e, Oxdf, 
OxeO, 0x61, 0x62, Oxe3, 0x64, Oxe5, 0xe6, 0x67, 
0x68, 0xe9, Oxea, 0x6b, Oxec, 0x6d, 0x6e, Oxef, 
0x70, Oxfl, 0xf2, 0x73, Oxf4, 0x75, 0x76, Oxf7, 

25 0xf8, 0x79, 0x7a, Oxfb, 0x7c, Oxfd, Oxfe, 0x7f, 

0x80, 0x01, 0x02, 0x83, 0x04, 0x85, 0x86, 0x07, 
0x08, 0x89, 0x8a, OxOb, 0x8c, OxOd, OxOe, Ox8f, 
0x10, 0x91, 0x92, 0x13, 0x94, 0x15, 0x16, 0x97, 
0x98, 0x19, Oxla, 0x9b, Oxlc, 0x9d, 0x9e, Oxlf, 

30 0x20, Oxal, 0xa2, 0x23, 0xa4, 0x25, 0x26, 0xa7, 
Oxa8, 0x29, 0x2a, Oxab, 0x2c, Oxad, Oxae, 0x2f, 
OxbO, 0x31, 0x32, Oxb3, 0x34, 0xb5, 0xb6, 0x37, 
0x38, Oxb9, Oxba, 0x3b, Oxbc, 0x3d, Ox3e, Oxbf, 
0x40, Oxcl, 0xc2, 0x43, 0xc4, 0x45, 0x46, 0xc7, 

35 0xc8, 0x49, 0x4a, Oxcb, 0x4c, Oxcd, Oxce, 0x4f, 
OxdO, 0x51, 0x52, Oxd3, 0x54, 0xd5, 0xd6, 0x57, 
0x58, 0xd9, Oxda, 0x5b, Oxdc, 0x5d, Ox5e, Oxdf, 
OxeO, 0x61, 0x62, Oxe3, 0x64, 0xe5, 0xe6, 0x67, 
0x68, 0xe9, Oxea, 0x6b, Oxec, 0x6d, 0x6e, Oxef, 

40 0x70, Oxfl , 0xf2, 0x73, Oxf4, 0x75, 0x76, 0xf7, 
0xf8, 0x79, 0x7a, Oxfb, 0x7c, Oxfd, Oxfe, 0x7f}; 
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File: Smachine.h 

#define WINKCLASS 0x42 
5 #define WINKSUMSTART WINKCLASS + OxOD 
#define XDSEND OxOF 

#defme OVERWRITE " Error: Overwrite" 
#define CONTNOSTART " Error: Continue with no Start' 
10 #define TOOLONG " Error: too many bytes" 

#define BADCHECKSUM " Error: bad check sum" 
#defme TOOSHORT " Error: too few bytes" 





#define XDSSTART "XDS " 


15 


#defrne CI START 


"CI " 




#define C2START 


"C2 " 




#defineTl START 


"TI M 




#define T2 START 


"T2 " 




#define C3 START 


"C3 " 


20 


#define C4 START 


"C4 " 




#defineT3 START 


"T3 " 




#define T4START 


"T4 " 




#define ONESP " 


ti 




#define TWOSP * 


1 M 


25 


#define SEVENSP 


ti 11 




#define MPAA " 


MPAA- 




#defme TVPG " 


TVPG - " 




#define OTHER " 


' OTHER 




#defmeTVPG FV 


",FV" 


30 


#define TVPG V 


",V" 




#defineTVPG S ' 


',S" 




#define TVPG L 1 


",L" 




#define TVPG_D 


",D" 


35 


#define TRUE 1 






#define FALSE 0 





#define CI 0 
#define C2 1 

40 #define CAP 0 
#define TXT 1 
#define FIELD 1 1 
#defineFIELD2 2 
#define POPUP 0 

45 #define PAINTON 1 
#define ROLLUP2 2 
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#define R0LLUP3 3 
#define R0LLUP4 4 
#define Tl 1 
#define T2 2 



typedef int (_cdecl *FPTR)(), *SPTR; 

typedef union sval{ 
10 FPTR fptr; 
SPTR dptr; 
}SVAL; 

#define CLASSMAX 7 
1 5 #define RECORDMAX 128 
#define MESLEN 6 



#define XDSWink 0 
#define XDSVChip 1 
20 #define XDSMax 2 



struct XDS State { 
BOOL Open; 
int Length; 
25 charData[33]; 
int CheckSum; 

}; 



30 



35 



struct cState { 
int CurrentCtrl[2]; 
int Channel[2]; 
int Mode[2]; 
charText[2][2][2][256]; 
int TextLength[2][2][2]; 
intType[2][2]; 
int XDSClass; 
int XDSRecord; 



// Save control character which starts pair 
// Channel 1 or 2 (control high or low) 
// Mode captioning or text 
// The saved text 
// The length of the saved text 
// The type of caption 
// The current XDS class 



40 



// The current XDS record 
struct XDSState XDS[CLASSMAX][RECORDMAX]; // stored data for current XDS state 
SVAL *NextState[2]; // pointer to the next state 

}; 



#define STATE(x) SVAL x##[] = { 
#define TEST(x) &##x##, 
#defme NEXT(x) NULL, ##x##, 
45 #define DEFAULT &DefaultTest, 
#define DNEXT(x) NULL, ##x##}; 
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File: stable.c 

#include <windows.h> 
5 #include <stdio.h> 
#include "sMachine.h" 
#include "L21Dec.h" 

extern SVAL DataState[]; 
1 0 extern SVAL ControlState[] ; 

extern SVAL XDSStartState[]; 

extern SVAL XDSContState[]; 

extern SVAL XDSDataState[]; 

extern SVAL XDSEndState[]; 
1 5 extern SVAL URLDataStatef] ; 

#pragma warning(disable : 4047) 
/* 

* State Tables 
20 * 

* This is what drives the state machine. Each state has one or more possible 

* sub-state changes. Each of these is made up of a test followed by a list 

* of functions to execute if the test passes and a new state to go to. The 

* state machine tries each test in order. The first test that passes has its 
25 * functions executed and the state changed to its next state. The state 

* machine then exits without trying any more states. The last test on the list 

* for a state must be the default test which always returns true. 
*/ 

30 // State DataState 

// This state is to go when we have text data 

// 

STATE(DataState) 
35 TEST(NullTest) NEXT(DataState) 

TEST(F 1 XDSTest) NEXT(DataState) 

TEST(XDSStartTest) &XDSBegin, NEXT(XDSStartState) 

TEST(XDSContTest) &XDSBegin, NEXT(XDSContState) 

TEST(XDSEndTest) NEXT(XDSEndState) 
40 TEST(ControlTest) &ControlSave, NEXT(ControlState) 

DEFAULT &DataSave, DNEXT(DataState) 

// State ControlState 

// In this state we have received a control character and the next 
45 // character will decide what action we should take. Warning the control 
// pair may be repeated but in this case we do not care. Normally you 
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// require extra states to filter out repeats. 

STATE(ControlState) 
TEST(NullTest) NEXT(ControlState) 
5 TEST(FlXDSTest) NEXT(DataState) 

TEST(XDSStartTest) &XDSBegin, NEXT(XDSStartState) 
TEST(XDSContTest) &XDSBegin, NEXT(XDSContState) 
TEST(XDSEndTest) NEXT(XDSEndState) 
TEST(ControlTest) &ControlSave, NEXT(ControlState) 

1 0 TEST(PopOnTest) &PopOnDecode, NEXT(DataState) 
TEST(RollUpTest) &RollUpDecode, NEXT(DataState) 
TEST(PaintOnTest) &PaintOnDecode, NEXT(DataState) 
TEST(URLTest) &URLDecode, NEXT(URLDataState) 
TEST(TextModeTest) &TextDecode, NEXT(DataState) 

1 5 TEST(EndOfCaptionTest) &PopOnDecode, NEXT(DataState) 
TEST(PACTest) &DumpText, NEXT(DataState) 
TEST(CRTest) &ChannelChange, &DumpText, NEXT(DataState) 
TEST(CtrlChangeTest) &ChannelChange, NEXT(DataState) 
DEFAULT DNEXT(DataState) 

20 

// State XDSStartState 

// In this case we have received a an XDS Undefined Start character (OD) 
// The next character determines which class function to execute. 

25 STATE(XDSStartState) 

TEST(NullTest) NEXT(XDSStartState) 
DEFAULT &XDSStart, DNEXT(XDSDataState) 

// State XDSContState 
30 //In this case we have received a an XDS Undefined Continue character (0E) 
// The next character determines which class function to execute. 

STATE(XDSContState) 
TEST(NullTest) NEXT(XDSContState) 
35 DEFAULT &XDSCont, DNEXT(XDSDataState) 

// State XDSDataState 

// In this state we have received the first character of 
// the XDS stream. Want to stay in this state until 
40 // we have receive the full XDS Message. 

STATE(XDSDataState) 
TEST(XDSEndTest)NEXT(XDSEndState) 
TEST(XDSStartTest) &XDSBegin, NEXT(XDSStartState) 
45 TEST(XDSContTest) &XDSBegin, NEXT(XDSContState) 
TEST(ControlTest) &ControlSave, NEXT(ControlState) 
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DEFAULT &XDSData, DNEXT(XDSDataState) 
// State XDSEndState 

// We have received the XDS end command (Of) we need to fetch the 
// checksum and then we are done and have recieved the full message. 

STATE(XDSEndState) 
DEFAULT &XDSEnd, DNEXT(DataState) 

// State URLDataState 

// This state is to go when we have T2 (URL) data 

// 

STATE(URLDataState) 
TEST(NullTest) NEXT(URLDataState) 
TEST(FlXDSTest) NEXT(URLDataState) 
TEST(XDSStartTest) &XDSBegin, NEXT(XDSStartState) 
TEST(XDSContTest) &XDSBegin, NEXT(XDSContState) 
TEST(XDSEndTest) NEXT(XDSEndState) 
TEST(ControlTest) &ControlSave, NEXT(ControlState) 
TEST(URLEndTest) &DataSave, &DumpText, NEXT(URLDataState) 
DEFAULT &DataSave, DNEXT(URLDataState) 
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File: Tests.c 



5 #include <windows.h> 
#include <stdio.h> 
#include "sMachine.h" 
#include "L21Dec.h" 

10 int DefaultTest(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 
{ 

return(TRUE); 
} 

1 5 int NullTest(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 

{ 

if(ch == 0x00) 
return(TRUE); 
else 

20 return(FALSE); 
} 

int FlXDSTest(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 
{ 

25 if((ch < Ox 1 0) && (field == FIELD 1 )) 
return(TRUE); 
else 

return(FALSE); 

} 

30 

int XDSStartTest(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 

{ 

if((ch > 0) && (ch < OxOf) && ((ch & 1) = 1)) 
return(TRUE); 
35 else 

return(FALSE); 

} 

int XDSContTest(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 
40 { 

if((ch > 0) && (ch < OxOf) && ((ch & 1) = 0)) 
return(TRUE); 
else 

return(FALSE); 

45 } 
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int XDSEndTest(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 

if(ch==OxOf) 
return(TRUE); 
5 else 

return(FALSE); 

} 



10 int ControlTest(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 

if((ch > OxOf) && (ch < 0x20)) 
return(TRUE); 
else 

15 return(FALSE); 
} 

int TextModeTest(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 
20 int c; 

c = cStatePtr->CurrentCtrl[field - 1]; 
if((c == 0x14) || (c = 0x15) || (c == Oxlc) || (c == Oxld)) 
{ 

25 if((ch == 0x2a) || (ch == 0x2b)) 
return(TRUE); 

} 

return(FALSE); 

} 

30 

int RollUpTest(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 

{ 

int c; 

35 c = cStatePtr->CurrentCtrl[field - 1 ] ; 

if((c = 0x14) || (c = 0x15) || (c = Oxlc) || (c = Oxld)) 
{ 

if((ch > 0x24) && (ch < 0x28)) 
return(TRUE); 

40 } 

return(FALSE); 

} 

int PaintOnTest(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 
45 { 

int c; 
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c = cStatePtr->CurrentCtrl[field - 1]; 

if((c == 0x14) || (c == 0x15) || (c = Oxlc) || (c == Oxld)) 

{ 

5 if(ch==0x29) 
return(TRUE); 

} 

return(FALSE); 

} 

10 

int PopOnTest(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 
{ 

intc; 

15 c = cStatePtr->CurrentCtrl[field - 1 ]; 

if((c == 0x14) || (c = 0x15) || (c = Oxlc) || (c == Oxld)) 

{ 

if(ch==0x20) 
return(TRUE); 

20 } 

return(FALSE); 

} 

hit EndOfCaptionTest(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 
25 { 

int c; 

c = cStatePtr->CurrentCtrl[field - 1]; 
if((c = 0x14) || (c == 0x15) || (c == Oxlc) || (c == Oxld)) 
30 { 

if(ch == 0x2f) 
retum(TRUE); 

} 

return(FALSE); 
35 } 

int PACTest(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 
{ 

int c; 

40 

c = cStatePtr->CurrentCtrl[field - 1]; 
if((c > Oxf) && (c < 0x20)) 

{ 

if(ch>0x3f) 
45 return(TRUE); 

} 
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return(FALSE); 

} 

int CtrlChangeTest(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 
5 { 

int f, c, ctrl; 

f= field - 1; 

c = cStatePtr->Channel[f]; 
10 ctrl = cStatePtr->CurrentCtrl[f]; 

if(((ch > Oxlf) && (ch < 0x40)) && (((ctrl < Oxl 8) && (c != CI)) II ((ctrl > 0x17) && (c 
C2)))) 
return(TRUE); 
else 

15 return(FALSE); 

} 

int CRTest(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 
20 int c; 

c = cStatePtr->CurrentCtrl[field - 1]; 
if((c = 0x14) || (c = 0x15) || (c = Oxlc) || (c = Oxld)) 
{ 

25 if(ch==0x2d) 
return(TRUE); 

} 

return(FALSE); 

} 

30 

int URLTest(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 

{ 

intc; 

35 c = cStatePtr->CurrentCtrl[field - 1]; 

if((field == FIELD 1) && (c = Oxlc)) 

{ 

if((ch == 0x2a) || (ch == 0x2b)) 
return(TRUE); 

40 } 

return(FALSE); 
} 

int URLEndTest(long field, unsigned char ch, char mes[], struct cState *cStatePtr) 
45 { 

int f, 1; 
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char *t; 
f= field -1; 

1 = C StatePtr->TextLength[f][C2][TXT]; 
5 t = cStatePtr->Text[f][C2][TXT]; 
if(l > 5) 

if((ch==']')&&(t[l-5] = '[')) 

{ 

if(((t[l-4] >= '0') && (t[l-4] <= '9')) || ((t[l-4] >= 'A') && (t[l-4] <= 'F')) || ((t[l-4] >= 'a') 
10 && (t[l-4] <= T))) 

if(((t[l-3] >= '0') && (t[l-3] <= '9')) || ((t[l-3] >= 'A') && (t[l-3] <= T')) || ((t[l-3] >= 'a') 
&& (t[l-3] <= 'f ))) 

if(((t[l-2] >= '0') && (t[l-2] <= '9')) || ((t[l-2] >= 'A') && (t[l-2] <= 'F)) || ((t[l-2] >= 'a') 
&& (t[l-2] <= 'f ))) 

15 if(((t[l-l] >= '0') && (t[l-l] <= '9')) || ((t[l-l] >= W) && (t[l-l] <= 'F')) || ((t[l-l] >= 

•a') && (t[l-l] <= 'f)» 
return(TRUE); 

} 

retum(FALSE); 
20 } 
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File: XDSMessages.c 

#include <windows.h> 
#include <stdio.h> 
5 #include <string.h> 
#include "L21Dec.h n 
#include "sMachine.h" 

extern char XD SMes [CLASSMAX] [RECORDMAX] [MESLEN] ; 
1 0 extern char *mpaaRatings [] ; 
extern char *tvpgRatings[]; 
extern char flagmask[]; 
extern char *types[]; 

1 5 void Def(char mes[], struct cState *cStatePtr) 

{ 

strcpy(mes,XDSSTART); 

strcat(mes,XDSMes[cStatePtr->XDSClass][cStatePtr->XDSRecord]); 
strcat(mes,TWOSP); 

20 cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Data[cStatePtr- 
>XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Length] = 0; 
strcat(mes, cStatePtr->XDS[cStatePtr->XDSClass] [cStatePtr->XDSRecord] .Data); 

} 

25 void Vcp(char mes[], struct cState *cStatePtr) 

{ 

char bl, b2, type; 
char flags; 

30 strcpy(mes,XDSSTART); 

strcat(mes,XDSMes[cStatePtr->XDSClass][cStatePtr->XDSRecord]); 

bl =cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Data[0]; 

b2 = cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Data[l]; 

type = ((bl » 3) & 3); 
35 if((type == 0) || (type == 2)) //MPAA 
{ 

strcat(mes, MPAA); 

strcat(mes, mpaaRatings[bl & 7]); 

} 

40 else if(type == 1) // TVPG 
{ 

strcat(mes, TVPG); 
strcat(mes, tvpgRatings[b2 & 7]); 
flags = (bl»5)&l; 
45 flags = flags | ((b2 & 0x38) » 2); 
flags = flags | ((b2 & 0x20) » 1); 
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flags = flags & flagmask[b2 & 7]; 
if(flags&OxlO) 

strcat(mes,TVPG_FV); 
if(flags & 8) 
5 strcat(mes,TVPG_V); 
if(flags & 4) 

strcat(mes,TVPG_S); 
if(flags & 2) 

strcat(mes,TVPG_L); 
10 if(flags & 1) 

strcat(mes,TVPG_D); 

} 

else // Other 
{ 

15 strcat(mes, OTHER); 
} 

} 

void Typ(char mes[], struct cState *cStatePtr) 
20 { 

int i; 

strcpy(mes,XDSSTART); 

strcat(mes,XDSMes[cStatePtr->XDSClass][cStatePtr->XDSRecord]); 
25 strcat(mes,TWOSP); 

for(i = 0;i < cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Length;i-H-) 

{ 

strcat(mes, types[cStatePtr->XDS[cStatePtr->XDSClass][cStatePtr->XDSRecord].Data[i] 
- 0x20]); 
30 strcat(mes, ONESP); 
} 

} 
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File: XDSROM.c 

#include <windows.h> 
5 #include "L21Dec.h" 
#include "sMachine.h" 

char MaxLength[CLASSMAX][RECORDMAX] = { 
{0, 4, 6,32,32, 2, 2, 8,32, 4, 32, 32, 32, 32, 32, 32, // Current Class 

10 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 

1 5 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32}, 
{ 0, 4, 6, 32, 32, 2, 2, 8, 4, 32, 32, 32, 32, 32, 32, 32, // Future Class 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 

20 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32}, 

25 { 0, 32, 6, 2, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, // Channel Class 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 

30 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32}, 
{ 0, 6, 6, 32, 2, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, // Miscellaneous 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 

35 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
2, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 

40 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32}, 

{ 0, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, // Public Service 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 

45 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
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32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32}, 
{32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, // Reserved 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
5 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 

10 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32}, 

(32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, // Undefined Class 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 

15 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 
32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32}}; 

20 char MinLength[CLASSMAX][RECORDMAX] = { 

(0, 4, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, // Current Class 
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char XDSMes[CL AS SMAX] [RECORDMAX] [MESLEN] = { 
{"Null 'y'Start'V'Durat'V'Show "/Type ","VChip","Audio","Capti", // Current Class 
"0108 ","Aspec","010A ","010B ","Compl","Comp2","010E ","010F 

35 "Descl , *,"Desc2","Desc3 ,, ,"Desc4","Desc5","Desc6","Desc7","Desc8", 
"0118 ","0119 YOllA ","01 IB ","01 1C ","01 ID ","01 IE ","01 IF ", 
"0120 ","0121 ","0122 ","0123 ","0124 ","0125 ","0126 ","0127 
"0128 ","0129 ","012A ","012B ","012C ","012D ","012E ","012F ", 
"0130 ","0131 ","0132 ","0133 ","0134 ","0135 ","0136 ","0137 ", 

40 "0138 ","0139 ","013A ","013B ","013C ","013D ","013E ","013F ", 
"0140 ","0141 ","0142 ","0143 ","0144 ","0145 ","0146 ","0147 ", 
"0148 ","0149 ","014A ","014B ","014C ","014D ","014E ","014F ", 
"0150 ","0151 ","0152 ","0153 ","0154 ","0155 ","0156 ","0157 ", 
"0158 ","0159 ","015A ","015B ","015C ","015D ","015E ","015F ", 

45 "0160 ","0161 ","0162 ","0163 ","0164 ","0165 ","0166 ","0167 ", 
"0168 ","0169 ","016A ","016B ","016C ","016D ","016E ","016F ", 



-98- 



"0170 ","0171 ","0172 ","0173 ","0174 ","0175 ","0176 ","0177 ", 
"0178 ","0179 ","017A ","017B ","017C ","017D ","017E ","017F "}, 
{"0300 ","0301 ","0302 ","0303 ","0304 ","0305 ","0306 ","0307 ", //Future Class 
"0308 ","0309 ","030A ","030B ","030C ","030D ","030E ","030F ", 
5 "0310 ","0311 ","0312 ","0313 ","0314 ","0315 ","0316 ","0317 ", 
"0318 ","0319 ","03 1A ","031B ","031C ","031D ","031E ","031F ", 
"0320 ","0321 ","0322 ","0323 ","0324 ","0325 ","0326 ","0327 ", 
"0328 ","0329 ","032A ","032B ","032C ","032D ","032E ","032F ", 
"0330 ","0331 ","0332 ","0333 ","0334 ","0335 ","0336 ","0337 ", 

10 "0338 ","0339 ","033A ","033B ","033C ","033D ","033E ","033F ", 
"0340 ","0341 ","0342 ","0343 ","0344 ","0345 ","0346 ","0347 ", 
"0348 ","0349 ","034A ","034B ","034C ","034D ","034E ","034F ", 
"0350 ","0351 ","0352 ","0353 ","0354 ","0355 ","0356 ","0357 ", 
"0358 ","0359 ","035A ","035B ","035C ","035D ","035E ","035F ", 

15 "0360 ","0361 ","0362 ","0363 ","0364 ","0365 ","0366 ","0367 ", 
"0368 ","0369 ","036A ","036B ","036C ","036D ","036E ","036F ", 
"0370 ","0371 ","0372 ","0373 ","0374 ","0375 ","0376 ","0377 ", 
"0378 ","0379 ","037A ","037B ","037C ","037D ","037E ","037F "}, 
{"0500 ","Netwk","Affil","Delay","0504 ","0505 ","0506 ","0507 ", // Channel Class 

20 "0508 ","0509 ","050A ","050B ","050C ","050D ","050E ","050F ", 
"0510 ","0511 ","0512 ","0513 ","0514 ","0515 ","0516 ","0517 ", 
"0518 ","0519 ","051A ","051B ","051C ","051D ","051E ","051F ", 
"0520 ","0521 ","0522 ","0523 ","0524 ","0525 ","0526 ","0527 ", 
"0528 ","0529 ","052A ","052B ","052C ","052D ","052E ","052F ", 

25 "0530 ","0531 ","0532 ","0533 ","0534 ","0535 ","0536 ","0537 ", 
"0538 ","0539 ","053A ","053B ","053C ","053D ","053E ","053F ", 
"0540 ","0541 ","0542 ","0543 ","0544 ","0545 ","0546 ","0547 ", 
"0548 ","0549 ","054A ","054B ","054C ","054D ","054E ","054F ", 
"0550 ","0551 ","0552 ","0553 ","0554 ","0555 ","0556 ","0557 ", 

30 "0558 ","0559 ","055A ","055B ","055C ","055D ","055E ","055F ", 
"0560 ","0561 ","0562 ","0563 ","0564 ","0565 ","0566 ","0567 ", 
"0568 ","0569 ","056A ","056B ","056C ","056D ","056E ","056F ", 
"0570 ","0571 ","0572 ","0573 ","0574 ","0575 ","0576 ","0577 ", 
"0578 ","0579 ","057A ","057B ","057C ","057D ","057E ","057F "}, 

35 {"0700 ","Time ","Impul","Suppl","Zone ","0705 ","0706 ","0707 ", // Miscellaneous 
"0708 ","0709 ","070A ","070B ","070C ","070D ","070E ","070F ", 
"0710 ","0711 ","0712 ","0713 ","0714 ","0715 ","0716 ","0717 ", 
"0718 ","0719 ","071A ","071B ","071C ","071D ","071E ","071F ", 
"0720 ","0721 ","0722 ","0723 ","0724 ","0725 ","0726 ","0727 ", 

40 "0728 ","0729 ","072A ","072B ","072C ","072D ","072E ","072F ", 
"0730 ","0731 ","0732 ","0733 ","0734 ","0735 ","0736 ","0737 ", 
"0738 ","0739 ","073A ","073B ","073C ","073D ","073E ","073F ", 
"OOBNB","0741 ","0742 ","0743 ","0744 ","0745 ","0746 ","0747 ", 
"0748 ","0749 ","074A ","074B ","074C ","074D ","074E ","074F ", 

45 "0750 ","0751 ","0752 ","0753 ","0754 ","0755 ","0756 ","0757 ", 

"0758 ","0759 ","075A ","075B ","075C ","075D ","075E ","075F ", 
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"0760 ","0761 ","0762 ","0763 ","0764 ","0765 ","0766 ","0767 ", 
"0768 ","0769 ","076A ","076B ","076C ","076D ","076E ","076F ", 
"0770 ","0771 ","0772 ","0773 ","0774 ","0775 ","0776 ","0777 ", 
"0778 ","0779 ","077A ","077B ","077C ","077D ","077E ","077F "}, 
5 {"0900 ","0901 ","0902 ","0903 ","0904 ","0905 ","0906 ","0907 ", // Public Service 
"0908 ","0909 ","090A ","090B ","090C ","090D ","090E ","090F ", 
"0910 ","0911 ","0912 ","0913 ","0914 ","0915 ","0916 ","0917 ", 
"0918 ","0919 ","091A ","091B ","091C ","091D ","091E ","091F ", 
"0920 ","0921 ","0922 ","0923 ","0924 ","0925 ","0926 ","0927 ", 

1 0 "0928 ","0929 ","092A ","092B ","092C ","092D ","092E ","092F ", 
"0930 ","0931 ","0932 ","0933 ","0934 ","0935 ","0936 ","0937 ", 
"0938 ","0939 ","093 A ","093B ","093C ","093D ","093E ","093F ", 
"0940 ","0941 ","0942 ","0943 ","0944 ","0945 ","0946 ","0947 ", 
"0948 ","0949 ","094A ","094B ","094C ","094D ","094E ","094F ", 

15 "0950 "'"0951 ","0952 ","0953 ","0954 ","0955 ","0956 ","0957 ", 
"0958 ","0959 ","095A ","095B ","095C ","095D ","095E ","095F ", 
"0960 ","0961 ","0962 ","0963 ","0964 ","0965 ","0966 ","0967 ", 
"0968 ","0969 ","096A ","096B ","096C ","096D ","096E ","096F ", 
"0970 ","0971 ","0972 ","0973 ","0974 ","0975 ","0976 ","0977 ", 

20 "0978 ","0979 ","097A ","097B ","097C ","097D ","097E ","097F "}, 

{"0B00 ","WSCod","WSMes","0B03 ","0B04 ","0B05 ","0B06 ","0B07 ", //Reserved 
Class 

"0B08 ","0B09 ","0B0A ","0B0B ","0B0C ","0B0D ","0B0E ","0B0F ", 
"0B10 ","0B11 ","0B12 ","0B13 ","0B14 ","0B15 ","0B16 ","0B17 ", 

25 "0B18 ","0B19 ","0B1A ","0B1B ","0B1C ","0B1D ","0B1E ","0B1F ", 
"0B20 ","0B21 ","0B22 ","0B23 ","0B24 ","0B25 ","0B26 ","0B27 ", 
"0B28 ","0B29 ","0B2A ","0B2B ","0B2C ","0B2D ","0B2E ","0B2F ", 
"0B30 ","0B31 ","0B32 ","0B33 ","0B34 ","0B35 ","0B36 ","0B37 ", 
"0B38 ","0B39 ","0B3A ","0B3B ","0B3C ","0B3D ","0B3E ","0B3F ", 

30 "0B40 ","0B41 ","0B42 ","0B43 ","0B44 ","0B45 ","0B46 ","0B47 ", 
"0B48 ","0B49 ","0B4A ","0B4B ","0B4C ","0B4D ","0B4E ","0B4F ", 
"0B50 ","0B51 ","0B52 ","0B53 ","0B54 ","0B55 ","0B56 ","0B57 ", 
"0B58 ","0B59 ","0B5A ","0B5B ","0B5C ","0B5D ","0B5E ","0B5F ", 
"0B60 ","0B61 ","0B62 ","0B63 ","0B64 ","0B65 ","0B66 ","0B67 ", 

35 "0B68 ","0B69 ","0B6A ","0B6B ","0B6C ","0B6D ","0B6E ","0B6F ", 
"0B70 ","0B71 ","0B72 ","0B73 ","0B74 ","0B75 ","0B76 ","0B77 ", 
"0B78 ","0B79 ","0B7A ","0B7B ","0B7C ","0B7D ","0B7E ","0B7F "}, 
{"ODOO ","0D01 ","0D02 ","0D03 ","0D04 ","0D05 ","0D06 ","0DO7 ", // Undefined Class 
"0D08 ","0D09 ","ODOA ","ODOB ","ODOC ","ODOD ","ODOE ","ODOF ", 

40 "0D10 ","0D11 ","0D12 ","0D13 ","0D14 ","0D15 ","0D16 ","0D17 ", 
"0D18 ","0D19 ","0D1A ","0D1B ","0D1C ","0D1D ","0D1E ","0D1F ", 
"0D20 ","0D21 ","0D22 ","0D23 ","0D24 ","0D25 ","0D26 ","0D27 ", 
"0D28 ","0D29 ","0D2A ","0D2B ","0D2C ","0D2D ","0D2E ","0D2F ", 
"0D30 ","0D31 ","0D32 ","0D33 ","0D34 ","0D35 ","0D36 ","0D37 ", 

45 "0D38 ","0D39 ","0D3A ","0D3B ","0D3C ","0D3D ","0D3E ","0D3F ", 
"0D40 ","0D41 ","0D42 ","0D43 ","0D44 ","0D45 ","0D46 ","0D47 ", 
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"0D48 ","0D49 *7*0D4A ","0D4B ","0D4C ","0D4D ","0D4E ","0D4F ", 
"0D50 ","0D51 ","0052 ","0D53 ","0D54 M ,"0D55 ","0D56 ","0D57 
"0D58 ","0D59 ","0D5A ","0D5B ","0D5C ","0D5D ","0D5E ","0D5F ", 
"0D60 ","0D61 ","0D62 ","0D63 ","0D64 ","0D65 ","0D66 ","0067 ", 
5 "0D68 ","0D69 ", n 0D6A ","0D6B ","0D6C ","0D6D ","0D6E ","0D6F 
"0D70 ","0D71 ","0D72 ","0D73 ","0D74 ","0D75 ","0D76 ","0D77 ", 
"0D78 "'"0D79 ","0D7A ","0D7B ","0D7C ","0D7D ","0D7E ","0D7F "}}; 

void (*XDSDisp[CLASSMAX][RECORDMAX])() = { 
1 0 {Def, Def, Def, Def, Typ, Vcp, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, // Current 
Class 

Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 

1 5 Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def}, 
{Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, // Future 

20 Class 

Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
25 Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def}, 
{Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, // Channel 
Class 

30 Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 

35 Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def}, 
{Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, // 
Miscellaneous 

Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
40 Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
45 Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def}, 
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{Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, // Public 
Service 

Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 

5 Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def}, 

10 {Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, // 
Reserved 

Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 

1 5 Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def,}, 
{Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, // 

20 Undefined Class 

Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 

25 Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, 
Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def, Def}}; 

char *mpaaRatings[] = {"N/A", "G", "PG", "PG-13", "R", "NC-17", "X", "Not Rated"}; 
30 char *tvpgRatings[] = {"None", "TV-Y", "TV-Y7 ", "TV-G", "TV-PG ", "TV-14 ", "TV-MA 
", "None"}; 

char fiagmask[] = { 0, 0, 0x10, 0, Oxf, Oxf, Oxe, 0}; 
char *types[] = { 

35 "Education", "Entertainment", "Movie", "News", "Religious", "Sports", "OTHER", 
"Action", 

"Advertisement", "Animated", "Anthology", "Automobile", "Awards", "Baseball", 
"Basketball", "Bulletin", 
"Business", "Classical", "College", "Combat", "Comedy", "Commentary", "Concert", 
40 "Consumer", 

"Contemporary", "Crime", "Dance", "Documentary", "Drama", "Elementary", "Erotica", 

''Exercise' 1 

"Fantasy"', "Farm", "Fashion", "Fiction", "Food", "Football", "Foreign", "Fund Raiser", 
"Game/Quiz", "Garden", "Golf, "Government", "Health", "High School", "History", 
45 "Hobby", 
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"Hockey", "Home", "Horror", "Information", "Instruction", "International", "Interview", 
"Language", 

"Legal", "Live", "Local", "Math", "Medical", "Meeting", "Military", "Miniseries", 
"Music", "Mystery", "National", "Nature", "Police", "Politics", "Premiere", "Prerecorded", 
5 "Product", "Professional", "Public", "Racing", "Reading", "Repair", "Repeat", "Review", 
"Romance", "Science", "Series", "Service", "Shopping", "Soap Opera", "Special", 
"Suspense", 

"Talk", "Technical", "Tennis", "Travel", "Variety", "Video", "Weather", "Western"}; 
10 char *CType[] = {"Pop "/Taint ", "Roll2 ", "RolB ", "Roll4 "}; 
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ExtractDB 
File: hexdec.pl 

5 #!/usr/bin/perl 

## hex dec display 

$a=chr(32); 
10 print ">".$a."<"."\n"; 

$a=hex(32); 

print ">".$a."<"."\n"; 



° 15 

^ $a=hex(20); 

F? print 'V; 

~ #printpack"h2","32"; 

n 20 

J $a = sprintf"%lx",(32); 

H print $a; 

I 
□ 

□ 
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File: stamp2db.pl 



5 #!/usr/bin/perl 

# this program access mysql DB and reads off all 

#or as much data as you want, 

#it then generates a web page to view it in raw form. 

10 

use DBI; 
my($dbh, $sth); 

15 $dbh = DBI->connect( 'DBI:mysql:caption:localhost:3306', 'root', ") || warn "connecting: 
$DBI::errstr\n"; 



$sth = $dbh->prepare(" select * from raw order by recordnum"); 
20 $sth->execute(); 

# get all from DB 



25 while(@row = $sth->fetchrow()) { 
# print @row[2]."\n"; 

$tim=@row[l]; 

$_=@row[2]; 

$11=0;$12=0; 
30 if(/ A (\d)\s(\d+)\,\s*$/) {$fnum=$l;$ll=$2;} 

elsif(/ A (\d)\s(\d+)\,0d+)\,\s*$/) {$fnum=$l; $11=S2; $12=$3; } 

#else {print "OPPS".@row[2]."\n";} 

else {} 

35 

if( ($11 == 20 || $11 == 28) && $12 = 44 ) {} 

else 
{ 

40 

if(l = ($mum+0)) { 
#print $tim; 

if ($11 >= 0x20 && $11 < 0x7f) {$out =chr($ll);} 
elsif($ll !=0) {$a = sprintf"%lx",$ll+0; 
45 $out.="t".$a."]";} 

if ($12 >= 0x20 && $12 < 0x7f) { $out.=chr($12);} 
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elsif($12 != 0) { $a = sprintf "%lx",$12+0; 
$out.="[".$12."]";} 
#print "\n"; 

} 

5 

} # end while 



if(2 == ($fnum+0)) { 
10 if ($11 >= 0x20 && $11 < 0x7f) {$out2.=chr($ll);} 
elsif($ll !=0) {$out2.="[".$ll. "]";} 
if ($12 >= 0x20 && $12 < 0x7f) {$out2.=chr($12);} 
elsif($12 != 0) {$out2 .="[".$12."]";} 

} 

15 



} 

20 

# write out web page with data 

open(FILE,"> /usr/www/names/docs/captionnew.html"); 

print FILE "<HTML>Strings or repeatitive [20], or [28], are not shown<br><brxfont 
25 color=blue>Field l</fontxbr><br>\n"; 
$_=$out; 



# do necessary substitution to flag URL 
30 sA<([ A \<\>]*)\>A[$l\]/g; 

sA[20\]Ax04/g; 

s/(\[28\]\*)([ A \x04]*)(\x04)A<font color=red\>$ 1 $2$3\<Vfont\>/g; 
sAx04A[20\]/g; 
35 $out=$_; 

print FILE $out; 

print FILE "<br><brxfont color=blue>Field 2</fontxbr><br>\n"; 

40 

print FILE $out2; 
close(FILE); 
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Release 

File: functobj 

5 L_.yl™9D_,.drectve(D_ 

_.text_l P' .debug$F_%o_™_H_B.text;_£ J>_ .data_ @_0A.data_ 

@_0A.debug$F_ / _H_B.text;_9t 

P\data!ce 

@_0A.debug$FJ/ 2 
10 I 

_H_B.text,x 

Y P' .debug$F_c_s_H_B.textQ_}J 

P' .data_d_@_0A.data J_@_0A.data_«_@_0A.debug$F_-_y2_H_B.text_g_ 

_F .debug$FJ3_I_H__B.textEu_ _P' .debug$F_>_N_H__B.textIX_ 

1 5 _P* .debug$F_i_±_H_B.textl» P' .debug$F_'_7_H__B.textCA_ 

_P\debug$F_„_"__H_B.textIz P\debug$F_9_-__H_B.text2__ 

_P' .debug$F_3_C__H_B.text_M_ JP' .debug$F J_m_H_B.text7w_ 

_P* .debug$F_®_ 3 /4__H_B.textB_fe_ 

F .data u @>, OA.data y @ OA.data @ OA.data ^ 

20 @ OA.data @ OA.data @ OA.data @ OA.data 

_@_0A.data_%_@_0A.debug$F_*_:_H_B-defaultlib:LIBCMT-defaultlib:OLDNAMES 

3A<L$_SD$_H rM +AA0_%oDH_ J _A <T$J"i_SVW3US\$_U<,H_%osL_Aa_AAa_3@/ 

14_P ...~<1$< 

>MS@_~E_<3_Aa_,L_D@+AD<M'yyyy6®+^ 
25 L$^a_6ai I yyyy+Ao®-N+u%oL$_<-'yyyy<y+A6(g» _/a_6n<,H_Aa_,L_Aa 
_D@C„_P_<,H_Aa_,L_Aa_a@C,,_T_<SH_D_KAa_@_SLJAa_ A 3_I%o„_L J _|yA_A< 
_A__e__™_ Error: OverwriteXDS 

; <T$_/i_SVW3US\$_U<,H_%o§L_Aa_AAa_D@/i4_P_. . .0<1S < 

,%oMS<_L A E_<3jte_,LJD@+^ 
30 LS J&J&i I yyj^+A6®^N+u%oL$_<- 1 yy5^<y+Ao®0<L$_Ae_6¥<L$ ,H_Aa_,L_Aa 

_□ @C„_P__< ,H_Aa_,L_Aa_D @C„_T_< SH_ □_KAa_@_SL_Aa_D _l%o„J_, J_ A [/A_A< 
A e ™ Error: Continue with no 

Start; <T$_SW<3_3Ma3L$_,L_SUAa_D4@_o3j_< 2 H_Aae__ 2 L_<iEAa_%in 

<@<„_T_;6~ _A'(E8X_<,H_Aa_ A _,L_[Aa_D@ > _y„_T_AB!_, 

35 _<L$_SVW<DH_Aa_DL_Aa_n_@C„ 

P_<±H_Affi_±L_<^Aa_D_@_%t □ < 

<" 

T_;A_Z"<T$_i%%o_S A _' , Z_<nH_Aa □L_G@+An<M 1 5^y^6®^N+u<U<^ 1 yyyy<u+Ao®0< 

EAe_<^E/a_6n£ 1 yyyy+A6<EH-^^ 
40 T$_<5 > %o2S(__*B_<DH_Aa_nL_C@4A 
E/a_6n£ 1 yyyyH^d<gH-N+^ 

„"<T$_<5 ,%o2S@_"B_< □ H_Aa □ L_ □ @+A □ <M 1 ^y6®^N+u<U<^ 1 yyyy<u+A6®0<EA6_ 

6^<E/a_6n i 1 yyyy+A6®^N+u<U<^ 1 yyyy<u+A6®0<EAe_6¥<E^ 
A rAAl \ a „ V i! y ' U , a ~ 6 ) A 0 Error: bad check sum 
45 Error: too many bytes Error: too few 

bytesQ &_36<D$_ST$_<L$_%oTDu J _A_6_<L$_SVI<t$_n_M_TZ_D_Z_6_P_D(E- 
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_<_=y}_Aa_S\$_0^\_y_ J _ A [AE ;_<TS_<L$_DD'uJg@J-8_}_g@_g„N8_,_AQ@_g 

„N< ^AI_@_<L$_VWI<t$_iD_Zg@J r 8J_i_ST$_%oX_€u%u_Q_Og„t8_€u&u_n_0(;„ 

t8_€u'u_D_Og„t8 A Al E_<T$_VJ<L$_3AD4'%oD t J r >_}_%oF_ J _g„N8_ A A J _%F 

_ A %o„N<_,_AC ^J_<T$_<D$_nLnUjgA_/9_}_CA_C„D8_,_AgA_g„D<_,_AI_0_<L$_ 

5 <D$_OD'uC@_/8_} 

C@_>_AC@_>_A2_T_<L$_,_%oA_%oA_A_Y_<L$_§D$_I<r$<?w <D$_3_ A /8_} 
<?@_ J _Ag@_ J _A7_ A _<T$ J\_S □ Jy<\$_VWU<t<_<|<_n_< D_OG ,F fK« Z /u . . . U_. . . 
6_...°...yuV<T$< 

10 SNJJ_ l yyyy<„/8_<<. . >A6®^N+u%oLS_<- I yyyy<u+A6®0<L$_A6_6¥<L$_6A_<T$ 

<5 1 %o2SI_'J_ 1 yyyy<„/8_«. . >Ao(g>^N+u%oL$_<- 1 yyyy<u+A6®0<L$_Ae_6¥<L$_ee_. . .yuL< 

T$ ii 1 % 0 _+ASIJJ_ 1 yyyy6®-N+u%oL$_<- , yyyy<u+A6®0<L$_Ae_6¥^ 

,%> 

1 yyyyS@JB_+Ao®^N+u%oL$_<- 1 yyyy<u+Ao®0<L$_Ae_^ . .6_. . .°. . .yuV<T$ 

1 5 <5 1 % 0 2SI_"J_ 1 yyyy<„/8_«. . >A6®-N+u%oL$_<- 1 yyyy<u+A6®0<L$_Ae_6¥<L$_ei<T$ 
<5'% 0 2SI _'J_ 1 yyyy<, ,/8_«. . >A6®-N+u%oL$_<- 1 yyyy<u+A6®0<L$_Ae_6¥<L$_e- 
...yuJ<T$ i< 

1 ymS@JB_+A6®-NWooL$_<- 1 yyyy<ii+A6 i< 
20 ,%> 

1 yyyyS@JB_4Ad®^N4ni%oU^ 
D_n|_ 1 pyy+A6®-NWooL$_<- 1 yyyy<u+^ 

{_§ ( Ajuu x xGuMrRrioioAl^-lul jPuVi 
[_i_s_u_jF_¥_f_ T 4 T3 C4 C3 T2 Tl C2 CI 

25 B c_.filebyg_J:\Vb60\Line2 l\funct.c.drectve (.text 

.debugSF .text ; 

.data .dat a E XDSMes .debugSF .text ; X DSCont .data 

_!J _.debug$F 

.text , XDSData -_.debug$F .text 

30 Q X DSEnd 

_.data ,_.data 6_.data XDSDisp_;_.debug$F 

_.text F .debugSF .text E_S .debugSF .text IJ_ 

_.debug$F .text 1J .debugSF .text C x 

.debugSF .text I_J .debugSF .text 2_> .debugSF .text 

35 §_ _.debug$F! .text"_7_ 2 _" _.debug$F# " .text$ B A $ 

,data % E % .data& a & .data ' y ' .data( ( .data) / ) .data* H 

* .data+ h + .data, n_,_.data- s_- 

_CType_.debug$F. $_ 3 _XDSBegin_XDSStart??_C@_0BE@FLOP@?5?5Error?3?5? 

5Overwrite?$AA@??_C@_04EPNH@XDS?5?$AA@??_C@_0CB@OHLK@?5?5Error?3? 
40 5?5Continue?5with?5no?5Start@_MaxLength??_C@_0BI@LPLM@?5?5Error?3?5?5bad?5 
check?5sum?$AA@??_C@_0BJ@ICAC@?5?5Error?3?5?5too?5many?5bytes?$AA@??_C 
@_0BI@NPMA@?5?5Error?3?5?5too?5few?5bytes?$AA@_MinLength_ControlSave_Data 
Save_PopOnDecode_RollUpDecode_PaintOnDecode_EndOfCaptionDecode_TextDecode_U 
RLDecode_ChannelChange_DumpText??_C@_04DILL@T4?5?5?$AA@??_C@_04IGNK 
45 @T3?5?5?$AA@??_C@_04JHCE@C4?5?5?SAA@??_C@_04CJEF@C3?5?5?$AA@??_C 
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@_04NEMM@T2?5?5?$AA@??_C@_07NDP@?5?5?5?5?5?5?5?$AA@??_C@_04CCPH 
@T1 ?5?5?$AA@??_C@_04HLFD@C2?5?5?SAA@??_C@_04INGI@C 1?5?5?$AA@ 
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File: L21Dec.obj 

L m™9" ! .drectvell_ 

5 _.text_8 P ( .debug$F_@_P_H_B.text"Z P' .debug$F_p_€_H_B.textzS 

_F .debug$F_,_<_H_B .text 
F P' .debug$F_S_c_H_B.text 

m P\debug$F_z_S_H_B-defaultlib:LIBCMT -defaultlib.OLDNAMES - 

export:__Line21Decode@12 -export:_ShiftRight@8 -export:_ShiftLeft@8 ,_A_ 
1 0 _<T$_SV3EW. . .6upC_ J £P°<_%o,T°<_%oJ_<_%)J<_36,_96oJ_<_ 0 /ooJ_ o e3y< _/;E0J%o!43 

_uiHua3A_ A [A /u_t J ? u_u_SL$_<D$_€a □PQ^ERe/A3A_ A [A #_/_8_A_Q 

_a_™_" SjV3U<t$WS\$_Uo°L°<|$_<A< 

/A_QWSVy__/A_. . . Au_<A/A_/8u6 /A_et/}t_<A< 

/A_QWSVy_JA_f}uae<E_< 
1 5 L%o„±L OA [A " Q i z <D$ SL$ OeA 

<D$_SL$_6aA_ 

.filebvg J:\Vb60\Lme21\L21Dec.cdrectve 1 CCstateX" .text 

_.debug$F .text " ,_.debug$F .text z 7 

_.debug$F .text 

20 _E .debugSF .text 

.debugSF 

J_cStatePtr_DllMam@12_Line21Decode@12_DataSmte_stateMachine_ShiftRight@8_Shif 
25 tLeft@8 
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File: Line21.dll 

DYNAMIC LINK LIBRARY 
5 32bit for Windows 95 and Windows NT 



10 



15 



Technical File Information: 

Image File Header 

Signature: 

Machine: 
Number of Sections: 
Time Date Stamp: 
Symbols Pointer: 
Number of Symbols: 
Size of Optional Header 
Characteristics: 



20 



00004550 
Intel 386 
0005 

39996d0e 
00000000 
00000000 
OOeO 

File is executable (i.e. no unresolved external references). 
Line numbers stripped from file. 
Local symbols stripped from file. 
32 bit word machine. 
File is a DLL. 



25 



Image Optional Header 



Magic: 



Linker Version: 
30 Size of Code: 

Size of Initialized Data: 
Size of Uninitialized Data: 
Address of Entry Point: 
Base of Code: 
35 Base of Data: 

Image Base: 
Section Alignment: 
File Alignment: 
Operating System Version: 
40 Image Version: 

Subsystem Version: 
Reserved 1: 
Size of Image: 
Size of Headers: 
45 Checksum: 

Subsystem: 



010b 
3.00 

00003800 

00012000 

00000000 

00002680 

00001000 

00005000 

10000000 

00001000 

00000200 

4.00 

0.00 

4.00 

00000000 
00019000 
00000400 
00000000 

Image runs in the Windows GUI subsystem. 
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DLL Characteristics: 0000 
Size of Stack Reserve: 00 1 00000 
Size of Stack Commit: 0000 1000 
Size of Heap Reserve: 00100000 
5 Size of Heap Commit: 00001000 

Loader Flags: 00000000 
Size of Data Directory: 000000 1 0 
Export Directory Virtual Address: 00005060 
Export Directory Size: 00000073 
10 Import Directory Virtual Address: 00017000 
Import Directory Size: 00000028 
Base Relocation Table 





Virtual Address: 


00018000 




Base Relocation Table Size: 


00000c40 


15 








Export Table 




20 


Name: 


Line21.dll 




Characteristics: 


00000000 




Time Date Stamp: 


39996d0e 




Version: 


0.00 




Base: 


00000001 


25 


Number of Functions: 


00000003 




Number of Names: 


00000003 




Ordinal Entry Point 


Name 




0000 00001010 


Line21 Decode 


30 


0001 00001150 


ShiftLeft 




0002 00001140 


ShiftRight 



Import Table 

35 

KERNEL32.dll 

Ordinal Function Name 

0092 GetACP 

40 0103 GetProcAddress 

OOeb GetModuleHandleA 

0137 GetVersion 

0062 ExitProcess 

00c7 GetCurrentThreadld 

45 0222 TlsSetValue 

021f TlsAlloc 
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0220 


TlsFree 




Olfd 


SetLastError 




0221 


TlsGetValue 




OOel 


GetLastError 


5 


0155 


HeapCreate 




0157 


HeapDestroy 




Olfa 


SetHandleCount 




OOdc 


GetFileType 




0116 


GetStdHandle 


10 


0114 


GetStartupInfoA 




0044 


DeleteCriticalSection 




00e9 


GetModuleFileNameA 




0098 


GetCPInfo 




009f 


GetCommandLineA 


15 


00f6 


GetOEMCP 




008b 


FreeEnvironmentStringsA 




OOdO 


GetEnvironmentStrings 




008c 


FreeEnvironmentStringsW 




00d2 


GetEnvironmentStringsW 


20 


0242 


WideCharToMultiByte 




024f 


WriteFile 




0164 


InitializeCriticalSection 




004f 


EnterCriticalSection 




0177 


LeaveCriticalSection 


25 


0153 


HeapAlloc 




0159 


HeapFree 




0178 


LoadLibraryA 




0083 


FlushFileBuffers 




0016 


CloseHandle 


30 


0206 


SetStdHandle 




01f8 


SetFilePointer 



35 



40 



45 



Section Table 

Section name: 

Virtual Size: 
Virtual Address: 
Size of raw data: 
Pointer to Raw Data: 
Pointer to Relocations: 
Pointer to Line Numbers: 
Number of Relocations: 
Number of Line Numbers: 
Characteristics: 



.text 

0000379b 

00001000 

00003800 

00000400 

00000000 

00000000 

0000 

0000 

Section contains code 
Section is executable 
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Section is readable 



10 



Section name: 
Virtual Size: 
Virtual Address: 
Size of raw data: 
Pointer to Raw Data: 
Pointer to Relocations: 
Pointer to Line Numbers: 
Number of Relocations: 
Number of Line Numbers: 
Characteristics: 



15 



.rdata 
000000d3 
00005000 
00000200 
00003c00 
00000000 
00000000 
0000 
0000 

Section contains initialized data 
Section is readable 



20 



25 



Section name: 
Virtual Size: 
Virtual Address: 
Size of raw data: 
Pointer to Raw Data: 
Pointer to Relocations: 
Pointer to Line Numbers: 
Number of Relocations: 
Number of Line Numbers: 
Characteristics: 



30 



.data 

00010648 

00006000 

00004400 

00003e00 

00000000 

00000000 

0000 

0000 

Section contains initialized data 
Section is readable 
Section is writeable 



35 



40 



Section name: 
Virtual Size: 
Virtual Address: 
Size of raw data: 
Pointer to Raw Data: 
Pointer to Relocations: 
Pointer to Line Numbers: 
Number of Relocations: 
Number of Line Numbers: 
Characteristics: 



45 



.idata 
00000420 
00017000 
00000600 
00008200 
00000000 
00000000 
0000 
0000 

Section contains initialized data 
Section is readable 
Section is writeable 
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10 



15 



Section name: 
Virtual Size: 
Virtual Address: 
Size of raw data: 
Pointer to Raw Data: 
Pointer to Relocations: 
Pointer to Line Numbers: 
Number of Relocations: 
Number of Line Numbers: 
Characteristics: 



.reloc 
00000ed6 
00018000 
00001000 
00008800 
00000000 
00000000 
0000 
0000 

Section contains initialized data 
Section can be discarded 
Section is readable 



Header Information 





Signature: 


5a4d 


20 


Last Page Size: 


0090 




Total Pages in File: 


0003 




Relocation Items: 


0000 




Paragraphs in Header: 


0004 




Minimum Extra Paragraphs: 


0000 


25 


Maximum Extra Paragraphs: 


ffff 




Initial Stack Segment- 


0000 




Initial Stack Pointer: 


00b8 




Complemented Checksum: 


0000 




Initial Instruction Pointer: 


0000 


30 


Initial Code Segment: 


0000 




Relocation Table Offset: 


0040 




Overlay Number: 


0000 




Reserved: 


0000 
0000 


35 




0000 
0000 



Offset to New Header. 
Memory Needed: 



00000080 
2K 



40 
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File: Line21.exp 



L m™9R .edatasd0 

5 @@.drectve_<_ 

_m™9F (4@Q A h_Line2 1 .dllLine2 1 DecodeShiftLeftShiftRight _$_(_4_,_8_0_<_ 

/DLL 

/OUT: Line2 1 .dll.edata_&_E_7_ULine2 1 DecodeShiftRightShiftLeft_Line2 1 Decode® 1 2_S 
hiftRight@8_ShiftLeft@8_imp_Line2 1 Decode® 1 2_imp_ShiftLeft@ 8_imp_ShiftRig 
10 ht@8^MPORTJ)ESCWPTORJ.ine21_^^LLJMPORTJ)ESCRIPTORlLine21J>rU 
LL THUNK DATA 
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File: Line21.1ib 



!<arch> 

5 / 966356238 0 222 ' 

_P_~ 
R I>_p_~ 

J XLine21Decode@12_ShiftLeft@8_ShiftRight@8_IMPORT_DESCRIPTOR_Line21_N 
ULLJMPORT_DESCRIPTOR_imp_Line21Decode@12_imp_ShiftLeft@8__imp_Sh 
10 ii\Right@8iLinc21_NULLjrHUNK DATA/ 966356238 0 244 

^Line21Decode@12_ShiftLeft@8_ShiftRight@8_IMPORT_DESCRIPT 

OR_Line21_NULL_IMPORT_DESCRIPTOR_imp_Line21Decode@12_imp_ShiftLef 
15 t@8_ Jmp_ShiftRight@8lLinc21_NULL_THUNK_DATALinc21.dll/ 966356238 
0 592 ' 

L m™9, a .idata$2_D_X_@_A.idata$6v_X_@ 

A Line21.dll .idata$2@A_h.idata$6_.idata$4@Ah.idata$5@Ah_8_P_IMPOR 

T _DESCRIPTOR _Line2 l_NULL_IMPORT _DESCRIPTOR|Une2 1 _NULLJTHUNK_D 

20 ATALine21.dll/ 966356238 0 127 x 

L _ m TM 9 p_.i da ta$3_<@_A___NULLJMPORT_DESCRIPTOR 

Line21.dll/ 966356238 0 154 ' 

L m™91_.idata$5_d@0A.idata$4_h@0A BLine2 1 _NULL_THUNK_TJ> AT ALine2 1 . 

dW 966356238 0 492 

25 L m™95 .text_'° \idata$5_AE_@_0A.idata$4_OO_@_0A.idata$6_a@_ 

Ay% Line21Decode.text □ "A 

~idata$5 C'A .idata$4 D"A.idata$6 □ ' A_6_imp_Line21 Decode 

@12_IMPORT_DESCRIPTOR_Line21Line21.dll/ 966356238 0 484 

30 L_m™9i_.text_'° \idata$5_AE^@_0A.idata$4_66_@_0A.idata$6a@_ 

Ay% ShiftLeft.text C ' A 

~idata$5 D'A .idata$4 □ , A.idata$6 □ 'A_2_imp_ShifiLeft@8_I 

MPORT_DESCRIPTOR_Line21Line21 .dll/ 966356238 0 487 

35 L__m™9i_.text_'° \idata$5_AE_@_0A.idata$4_66_@_0A.idata$6_a@_ 

Ay% ShiftRighttext □ ' A 

~ idata$5 □ ' A .idata$4 □ ' A.idata$6 □ ' A_3__imp_ShiftRight@8 

3_IMPORT_DESCRIPTOR_Line2 1 

40 
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File: Line21.pch 



VCPCHO. . .z&CXii 

5 Sep 27 199513:24:33s_d yyyy j:\vb60Mine21\vc40.pdb t_Q 

01 INTEGRAL_MAX_BITS=64_ 

MJX86=400 MSC_VER=1000_WIN32_MT_WIN32_NDEBUG_ 

WINDOWS_J:\VB60\Line21_C:\MSDEV\INCLUDE_C:\MSDEVWIFC\include_K:\ 

MSDEVWCLUDE_K:\MSDEVMVlFC\include_D:\MSDEV\INCLUDE_D:\MSDEV\MF 

10 C\include 

~ yyyy j :\vb60\line21\vc40.pdb_p™€oe™€E™eAr€A_€Ab€_€€e 

£€00€eC€A2€D€DB€0A€EA€tB€€B€AB€iA€0A€"B€_B€,>€'B€$B€4B€^B€J€O|€J€i{€6 
z€ {eUz€,{€@{€T{€h{e|{€Q{€D{€,{€a{€4€@{€Uz€_{€_{€Eze6{rZ€%Z€@|€xZ€$€D€d 
€ €a€A€a€ €$_€D_€d_€„_€n_€A_€a_€_€$_€D_€d_€„_ea_€A_€a_€_€$_€D_€d_€„_€a 
15 €A €a €_3$_€D_ed_€„_€n_€A_€a_€_€$_€D_€d_€„_€n_€A_€a_€_€$_€D_€d_€„_€n_ 
€A_€a_€_€$_eD_€d_€„_€a_€A_€a_€_€$_€D_€d_€„_€a_€A_€a_€_ 6$ €D €d 
€„ €a €A €3 €_ 

€$ 
€D 
20 €d 
€„ 
€a 
€A 
€a 

25 €_€$_€D_€d_€„_€a_€A_€a_€_€$€D€d€„€c€Aea€_ 

€$ 
€D 
€d 

€„ 

30 €a 
€A 
€a 

€ €$_€D_€d_€„_€a_€A_€a_€_€$_€D_€d_e„_€n_€A_€a_€_€$_€D_€d_€„_€n_€A_€a_€ 
Je$_€D_€d_€„_€a_€A_€a_e_€$_€D_€d_€„_€a_€UB€AR€€e_a€0LI5v?J^ > _X 



35 



e Va_ Release/Parity.obj_ 



Ayyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyyj^yyyyy^ 

40 yyyyyyyyyyyyyyym^ 
yyyyyyyyyyyyyyy^ 

yyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyym^ 

yyyyyyyyyyyyyyyy^ 
45 yyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyyyyy^^ 
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yj^yyyyyyyj^^ 

yy^yyj^y^ 

yyj^yyyyy^^ 

yyyyyyyyjOO^ 

10 yjovMyyyiTO^ 

is 5^yyy5w5™^^ 
yyyyyyyyyyy^^ 

yyj^yyyyyj^ 

^yyyyyyyyy^ 

20 yy^j^yi^ 

yyyyyyyyyyyyyyym^ 

yyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyy^^ 
25 yyyyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyy 

30 yyyyyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyy^ 
35 yyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyym 
yyj^yyyyyyyyj^ 

yyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyy^^ 

40 yyyyyyyyyyyyyyyyyy^ 

yyyyyyyyyyyyyyyyyy^ 

yyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyym^ 

45 yyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyy 
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yyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyy^^ 
5 yyyyyyyyyyyyyy}^^ 

yyyyyyyy^^ 

yyyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyy^^ 

yyyyMyyyyyyy^ 

10 yyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyyj^^ 
yyyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyj^ 

15 yy^yyyyjoO^ 

yyyyyyyyyyyyyyyyyy^ 
yyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyy^^ 

20 yyyyyyyyyyj^y^^ 

yyyyyyyyyyyyyyj^^ 

yyj^yyyyyy^ 

yyyyyyyyyyyyyyyy^^ 

25 yyyyyyyyyyyyyyy^ 

yyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyy^^ 
30 yyyyyyyyyyy^o^^ 

yyyyyyyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyy^ 
35 yyyyyyyyyyj^O^^ 
yyyyyyyyyyyyyyyyyy^ 
yyyyyyyyyyyyyyyyyy^ 
yyyyyyyyyyyyj^yyy^ 
yyyyyyyyyyyyyyyy^^ 
40 yyyyyyyyyyyyyy^ 

yyyyyyyyyyyyyyyyyyyyy^^ 
yyyyyyyy^yyyy^ 
yyyyyyyyyyyyyyyyy^ 
yyyyyyyyyyyyyyyy^^ 
45 yyyyyyyyyyyyMymy^^ 

yyyyyyyyyyyyyyyyy^^ 
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yyyyymyyyy^ 

yyyyyyyyyyyyyyyy^^ 

yyyyyyyyyyyyyyyyyy^^ 
5 yyyyyyyyyyyyyyyyyy^^ 
yyyyyyyyyyyyyyyy^^ 

yyyyyyyyj^ yy 

_p_€fi 

€ a 

10 _p_n 

n 

n on 



15 n 

n 

_P_n 
p € n 

20 _p n"_e_MIDL_STUB_MES S AGEfi 



f pfhTranslateToXmitn pmTranslateFromXmitoon pmFreeXmit_ 

pfaFreeInst & X MIT ROUTINE QUINTUPLE 



6n 



_F pObjoon u Sizeoon pfiiBind 

30 pfhUnbinddn& GENERIC_BINDING_INFOn 

nZ 

reserved 1 6fi_" dataRepresentationn Buffern_"_cbBuffer66n_" iMe 

thod reserved26n_"_(_rpcFlags66n" ,_tagRPCOLEMESSAGE66n u 



35 !_ 

# & pfhAllocate_$ pfnFree" % MALLOC FREESTRUCT& 

pfhBind 

pmUnbinddn._' GENERIC_BINDING_ROUTINE_PAIR6fi* 

40 CommOffsetn FaultOffset"_X_10_tk™9 

_Debug/XDSROM.objF_<Microsoft (R) 32-bit C/C++ Optimizing Compiler 

Version 10.00 MaxLengt h " MinLength XDSMes_ 

XDSDisp :_ 

_mpaaRatings 8:_ 

45 _tvpgRatings X: flagmask types a;_ 
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CTyp e X MIT ROUTINE_QUINTUPLE GENERIC BINDING ENFO 

tagRPCOLEMESSAGE_&__MALLOC_FREE_STRUCT"_( GENERIC_BINDESrG 

^OUTINE_PAIR_&_MALLOC_FREE_STRUCT_* COMM_FAULT_OFFSETS"_ 

~ FULL_PTR_TO_REFID_ELEMENT"_( GENERICBINDINGROUTINEPAIR 

5 _XMIT_ROUTINE_QUINTUPLE"_,_PFULL_PTR_TO_REFID_ELEMENT 

1 GUID 3_LPCLSLD 6_tagENHMETARECORD 

J_GUID_L_MIDL_STUB_DESC_S FULL_PTR_XLAT_TABLES PROP 

SHEETPAGEA f PROPSHEETPAGEW 

1 CLSID , IRpcChannelBufferVtbl „ DLGTEMPLATE_$ RPC_SYNTAX_ID 

10 ENTIFIER_(E EXCEPTION JlECORD_Z OVERLAPPED ' FLOATINGSA 

VE AREA 

_1_HD_„_DLGTEMPLATE PROPS_(,6Z$_oZ_,6Z HEETPAGEA ' LPDL 

GTEMPLATEA_f_PROPSHEETPAGEW_"_tagPOINT_— 
CONTEXT_™_RPC_VERSION 

15 _"_POINT_— _CONTEXT 

_3_LPIID_%o_PEXCEPTION_RECORD_>_val_context 

HDWP 

VjPUINT RPC_SS_THREAD_HANDLE_X_CALINFO_ENUMPROCW R 

PC_AUTH_IDENTITY_HANDLE 6_ 

20 ENHMETARECORD&_ 

SECURITY_CONTEXT_TRACKING_MODE_X_DATEFMT_ENUMPROCW_t_ 

PSID_NAME_USE MIDICALLBACK@20"_!_SECURITY_DESCRIPTOR_CONTROL 

EXPR_EVAL_z_LPFRHOOKPROC_X_CALINFO_ENUMPROCA_j_PFNC 
25 ALLBACK_X_DATEFMT_ENUMPROCA_n_ICMENUMPROCW_©_ 

PQUERYHANDLER 

@ FLOAT "_LPDWORD RPCAUTHZHANDLE u MMVERSION 

HRSRC ^RPC_FORWARD_FUNCTION@20"_®_PTOP_LEVEL_EXCEPTION_F 

ILTER 
30 HCONV 



BYTE LONGLONG_a_LPPROPSHEETPAGEW_±JCMENUMPROCA_J_LP 

WSTR_"_ACCESS_MASK_"_COLORREF_Z_LPPROPSHEETPAGEA_'_PIMAG 
E TLS_CALLBACK__HWAVEOUT_$_PRPC_RUNDOWN__HENHMETAFILE 
3 5 _r_PBOOL_t_RPC_SYNTAX_IDENTIFIER_X_DESKTOPENUMPROCW_"_u_lo 

ng 

t_SPTR_!_LPOLESTR NDR CCONTEXT 
3_UINT_X_WNDENUMPROC_X_DESKTOPENUMPROCAJ_WNDPROC_"_ 

HREFTYPE # DWORDLONG 

40 _p_LPSTR_t 
TOKENTYPE 

_!_BSTR 

RPCNSHANDLE 

HDESK__"_PDWORD_° EXCEPTION_POINTERS_J 

45 CLIPFORMAT_!_LPWORD_t_TYPEKIND_X_CODEPAGE_ENUMPROCW 
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_p_HPSTR_d_LPFNPSPCALLBACKW_!_OLECHAR_X_ENUMRESLANGPROC 

t _VARKIND_X_CODEPAGE_ENUMPROCA_J_LPFNPSPCALLBACKA 

RPC_BUFPTR_X_WINSTAENUMPROCW_ 1 / 2 _RPC_AUTH_KEY_RETRIEVAL_FN 

!_ LPCOLESTR SCHANDLE 

5 HTASK_A_REGISTERWORDENUMPROCW_X_TIMEFMT_ENUMPROCW 

X WINSTAENUMPROCA 

_!_ATOM_!_LPCWSTR_X_DLGPROC_A_REGISTERWORDENUMPROCA 

HOLEMENU 

_t_BOOL RPC_OB JECT_INQ_FN@ 1 2 

1 0 _"_ULONG_X_TIMEFMT_ENUMPROCA_«_PEXCEPTION_POINTERS_^_tag 

HELPINFO_t_CALLCONV__LPMENUTEMPLATEA HGLOBAL LPVOI 

D 

RPC_IF_HANDLE_X_HOOKPROC 
_p_PSTR_z_LPCFHOOKPROC_!_USHORT_7_ 

15 LPHMIDIOUT HRESULT 

_PUCHAR___DISPID_E_PFULL_PTR_XLAT_TABLES_z_LPCCHOOKPROC_ 

LPBYTE 

_X_PROC 
A_DATE_D_ 
20 ENHMFENUMPROC 

PSID 

_t_LPINT 
_N_SNB 

_p_CHAR_p_LPCSTR_6_SERVER_ROUTINE 

25 SCODE&_0_LPOVERLAPPED_COMPLETION_ROUTINE_U_ 

YIELDPROC_!_VARTWE___HWAVEIN__fi_IRpcChannelBuffer_6_IRpc 

ChannelBuffer_z_LPPAGEPAINTHOOK_t 

OLERENDER_u_LPUINT_X_GOBJENUMPROC 

HMETAFILEPICT__N__LPB STR 

30 

_byte_@_PFLOAT_"_PSECURITY_INFORMATION_$_NDR_RUNDOWN 

LPCVOID_"_SERVICE_STATUS_HANDLE_z_LPPAGESETUPHOOK 

_u u int ! wint t a_ 

LPMMIOPROC 

35 STUB_THUNK 

_!_WCHAR HGDIOBJ_X_ENUMRESNAMEPROC HCONVLIST 

HSZ 

TINT H DDEDATA_a_tagHANDLETABLE_X__FARPROC_X_ 
PROPENUMPROCW_"_MCIERROR_t_LPBOOL 

40 PLONG_u_WPARAM 

HMMIO_z_ 

LPOFNHOOKPROC_9_HPROPSHEETPAGE_QUERYHANDLER_X_ 

PROPENUMPROCA 

HKL HACCEL " 
45 RPCOLEDATAREP VARIANT BOOL HCURSOR_7_PHANDLE_e_ 

onexit t X 
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FONTENUMPROCW_"_LCTYPE_L_RPC_DISPATCH_FUNCTION 
_"_CALID 

RPC STATUS HMIDIIN 

HDC_6_MSGB0XCALLBACK_X_ 
5 FONTENUMPROCA GENERIC_UNBIND_ROUTINE HBITMAP LPARA 

M 

MENUTEMPLATEW_7_LPHMIDISTRM_t_TOKEN_INFORMATION_CLASS D 

RVCALLBACK@20_-_RPC_MESSAGE 

MENUTEMPLATEA 

1 0 HMIDI u PFNPROPSHEETCALLBACK PSECURITY_DESCRIPTOR 

HMENU HWINSTA 

LCSGAMUTMATCH ^RPC_CLIENT_FREE@4__y_PMIDL_STUB_DESC 

LONG NDRSCONTEXT 

ARRAY_INFO__p_va_list_7_LPHMIXER_X_ TIMERPROC_X_ 

15 DRAWSTATEPROC HINSTANCE_"_FOURCC_ 

MIDLSTUBMESSAGE "_SECURITY_INFORMATION_X_ENUMRESTYPEP 

ROC a_HANDLETABLE_7_ LPHWAVEIN_ 

PFORMAT_STRING "_CALTYPE 7 LPHANDLE RPC_MGMT_AUTHORI 

ZATION_FN_!_LANGID"_t_SECURITY_IMPERSONATION_LEVEL_u_SOCKET_ 

20 BOOLEAN 7_RPC_EP INQ HANDLE 

" HWND_MMIOPROC@16 LPHANDLER_FUNCTION_t_EXCEPTION_DIS 

POSITION_t XLATSIDE 

HHOOK LPTHREAD_START_ROUTINE_7_ 

LPHWAVEOUT HPALETTE_X_PROPENUMPROCEXW____HMODULE W 

25 AVECALLBACK@20 RPC_CLIENT_ALLOC@4____HANDLE HMIXER 

_!_PWORD_X_PROPENUMPROCEXA__HCOLORSPACE_X_EDITWORDBR 

EAKPROCA ^GENERIC_Bn>JDING_ROUTINE_!_u_short_7_ 

LPHMIDIIN_X_LOCALE_ENUMPROCW 

"_DWORD_X_GRAYSTRINGPROC_t_DESCKIND 
30 _7_PHKEY"_®_LPTOP_LEVEL_EXCEPTION_FILTER 

» LCID LPFNADDPROP SHEETP AGE u_char_X_LOCALE_ENUMPROCA 

" " HRGN t ACL_INFORMATION_CLASS_t_SYSKIND_TIMECALLBACK@20_ 



PACCESS_TOKEN__SC_LOCK_X_LINEDDAPROC PHANDLER_ROUTIN 

35 E ,, _!_PSECURITY_DESCRIPTOR_CONTROL_t_FUNCKIND 

FXPT2DOT30 LPLONG 

HGLRC H MIDIOUT_t 

INVOKEKIND HMIDI STRM 

HFONT 

40 HPEN 

HICON 

PVOID 

tagMETARECORD "REGSAM t OLEUPDATE_u_MCIDEVICEID_ 

_LPSERVICE_MAIN_FUNCTIONW 
45 ! WORD HMETAFILE_X_ ABORTPROC 
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^HDRVR_$_LPSERVICE_MAIN_FUNCTIONA_z_LPPRINTHOOKPROC_u_si 

ze_t LCSCSTYPE 

PBYT E LRESULT ) 

MFENUMPROC 

5 _e FPTR 

HKEY 

UCHAR PTHREAD_START_ROUTINE !_wctype_t__I_RPC_HANDLE 

H DROP MEMBERID 

SHORT_!_wchar_t_u_MMRESULT XMITHELPERROUTINE RPC_BI 

10 NDING_HANDLE 

" HIMC I RPC MUTEX 

HMIXEROBJ_z_LPSETUPHOOKPROC_,_RPC_BLOCKING_FUNCTION_ 

HBRUSH_X_ 

SENDASYNCPROC !FILEOP_FLAGS_/_LPTIMECALLBACK___handle_t H 

15 LOCAL 

_t_HFILE_ _Debug/funct.objF_<Microsoft (R) 32-bit C/C++ Optimizing Compiler 

Version 1O.OO._0*_% _3 XDSBegin field__ch_p_mes 1_ 

cStatePtr_._P_>_9_E_3_XDSStart field ch p mes 1_ 

cStatePtr_ . E > 9 3 XDSCont field ch P mes 1_ 

20 cStatePtr_._@ F 3 XDSData field ch p__mes 1_ 

cStatePtr_*_'_E__@_Z_3 XDSEn d field ch p mes 1_ 

cStatePtr_2_0_$_Y_3 ControlSave field ch p_mes 1_ 

cStatePtr_._ij/2 ,A_3 DataSave field ch__p_mes 1_ 

cStatePtr 
25 _6yyyt_m 
_0yyyt_f 

_uyyyt_c_2_T_€ {€_3 PopOnDecode field ch p_mes l_cStatePtr 

~uyyyt_f_2_e 6 D_3_RollUpDecode field ch p mes 1_ cStatePtr 

_0j^yyt_f 

30 iiyyyt c 2 p € {6 3 

PaintOnDecode field ch p mes 1_ cStatePtr 

_uyyyt_f_6_ii_€ {U 3 EndOfCaptionDecode field ch p mes 1_ 

cStatePtr 
_iiyyyt_f_._€_ A YO_3_ 

35 TextDecode field ch p mes 1_ cStatePtr 

_uyyyt_f_._0j_$3_3_ URLDecode field_ ch p mes 1_ 

cStatePtr_2_€_l g\_3_ 
ChannelChange field_ ch p mes 1_ cStatePtr 

uvvvt f . A 6_E_3 ^DumpText field ch p_mes 1_ cStatePtr 

40 _6yy5^_m 
_0yyytf 

uyyyt c MaxLengt h ~ MinLength ^XDSMes ,_ 

_XDSDisp a:_4 CType X MIT ROUTINE_QUINTUPLE GENE 

RIC_BINDING_INFO tagRPCOLEMES SAGE & MALLOC_FREE_STRUCT"_( 

45 GENERIC_BINDING_ROUTINE_PAIR_&_MALLOC_FREE_STRUCT_* ^CO 

MM_FAULT_OFFSETS"_. FULL_PTR_TO_REFID_ELEMENT"_(_GENERIC_BIND 
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ING_ROUTINE_PAIR ^XMIT_ROUTINE_QUINTUPLE M ^_PFULL_PTR_TO_REFI 

DELEMENT 

1__ GUID_3_LPCLSID_6_tagENHMETARECORD 
_1_GUID_L_MIDL_STUB_DESC_S FULL_PTR_XLAT_TABLES PROP 

5 SHEETPAGEA f PROPSHEETPAGEW 

_l_CLSID_7_XDSState_,_IRpcChannelBufferVtbl_„_DLGTEMPLATE_| RP 

C_SYNTAX_IDENTIFIER CE EXCEPTION_RECORD_Z__OVERLAPPED_' 

FLOATING_SAVE_AREA 
1 nD „_DLGTEMPLATE PROPSHEETPAGEA_'_LPDLGTEMPLATEA_f 

10 PROPSHEETPAGEW 

_9_sval_"_tagPOINT_— _CONTEXT_™_RPC_VERSION 
_"_POINT__— __CONTEXT 
_3_LPHD_%o_PEXCEPTION_RECORD 

9 SVAL > val_context 

15 HDWP_H_cState 

u_PUINT ^RPC_SS_THREAD_HANDLE_X_CALINFO_ENUMPROCW R 

PCAUTHIDENTITYHANDLE 6_ 

ENHMETARECORD&_ 
SECURITY_CONTEXT_TRACKING_MODE_X_DATEFMT_ENUMPROCW_t_ 

20 PSID_NAME_USE MIDICALLBACK@20"_!_SECURITY_DESCRIPTOR_CONTROL 

EXPR_EVAL_z_LPFRHOOKPROC_X_CALINFO_ENUMPROCA_i_PFNC 
ALLBACK_X_DATEFMT_ENUMPROCA_n_ICMENUMPROCW_©_ 
PQUERYHANDLER 

25 @_FLOAT_"_LPDWORD RPC_AUTHZ_HANDLE_u MMVERSION 

HRSRC ^RPC_FORWARD_FUNCTION@20"_®_PTOP_LEVEL_EXCEPTION_F 

ILTER 

HCONV 



30 _BYTE__LONGLONG_a_LPPROPSHEETPAGEW_±_ICMENUMPROCA_!_LP 
WSTR_"_ACCESS_MASK_"_COLORREF_Z_LPPROPSHEETPAGEA__PIMAG 
E_TLS_CALLBACK__HWAVEOUT_$_PRPC_RUNDOWN__HENHMETAFILE 
_t_PBOOL_t_RPC_SYNTAX_IDENTIFIER_X_DESKTOPENUMPROCW_"_u_lo 

ng 

35 _t_SPTR_!_LPOLESTR__NDR_CCONTEXT 

_u_UINT_X_WNDENUMPROC_X_DESKTOPENUMPROCA_H_WNDPROC_"_ 

HREFTYPE # DWORDLONG 

_p_LPSTR_t 
TOKEN_TYPE 

40 !_BSTR 

RPC NS HANDLE 

HDESK_"_PDWORD_°_EXCEPTION_POINTERS_! 

CLIPFORMAT_!_LPWORD_t_TYPEKIND_X_CODEPAGE_ENUMPROCW 
_p_HPSTR_d_LPFNPSPCALLBACKW_!_OLECHAR_X_ENUMRESLANGPROC 
45 t VARKIND_X_CODEPAGE_ENUMPROCA_]_LPFNPSPCALLBACKA 
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RPC_BUFPTR_X_WINSTAENUMPROCW_ 1 / 2 _RPC_AUTH_KEY_RETRIEVAL_FN 
_!_ LPCOLESTR SCHANDLE 

HTASK_A_PvEGISTERWORDENUMPROCW_X_TIMEFMT_ENTJMPROCW_ 

X_WINSTAENUMPROCA 
5 _!_ATOM_!_LPCWSTR_X_DLGPROC_A_REGISTERWORDENUMPROCA 

HOLEMENU 
JBOOL RPC_OB JECT_INQ_FN@ 1 2 

_"_ULONG_X_TIMEFMT_ENUMPROCA_«_PEXCEPTION_POINTERS_^_tag 
HELPINFO t CALLCONV L PMENUTEMPLATEA__HGLOBAL LPVOI 

10 D 

RPC_IF_HANDLE_X_HOOKPROC 
jj_PSTR_z_LPCFHOOKPROC_!_USHORT_7_ 
LPHMIDIOUT HRESULT 

_PUCHAR DISPID_E_PFULL_PTR_XLAT_TABLES_z_LPCCHOOKPROC_ 

15 __LPBYTE 

_X_PROC 

_A_DATE_D_ 

ENHMFENUMPROC 

PSID 

20 _t_LPINT 

_N_SNB 

_p_CHAR_p_LPCSTR_6_SERVER_ROUTINE 

SCODE&_0_LPOVERLAPPED_COMPLETION_ROUTINE_U_ 

YIELDPROC IVARTYPE ^HWAVEIN_B_IRpcChannelBuffer_B_IRpc 

25 ChannelBuffer_z_LPPAGEPAINTHOOK__t 

OLERENDER_u_LPUINT_X_GOBJENUMPROC 

HMET AFILEPICT_N_LPB STR 

Ibyte_@_PFLOAT_"_PSECURITY_INFORMATION_$_NDR_RUNDOWN 

30 LPCVOID_"_SERVICE_STATUS_HANDLE_z_LPPAGESETUPHOOK 

_u_u_int ! wint t a 

LPMMIOPROC 

STUB_THUNK 

! WCHA R H GDIOBJ X_ENUMRESNAMEPROC HCONVLIST 

35 HSZ 

TINT H DDEDATA a_tagHANDLETABLE_X_FARPROC_X_ 

PROPENUMPROCW_"_MCIERROR_t_LPBOOL 

^PLONG_u_WPARAM 

^HMMIO_z_ 

40 LPOFNHOOKPROC_9_HPROPSHEETPAGE_QUERYHANDLER_X_ 

PROPENUMPROCA 

HKL H ACCEL " 

RPCOLEDATAREP VARIANTBOOL HCURSOR_7_PHANDLE_e_ 

onexit t X 

45 FONTENUMPROCW_"_LCTYPE_i_RPC_DISPATCH_FUNCTION 
" CALID 
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RPC_STATUS HMIDIIN 

HDC_6_MSGB0XCALLBACK_X_ 

FONTENUMPROC A GENERIC UNBIND ROUTINE HBITMAP LPARA 

M 

5 MENUTEMPLATEW_7_LPHMIDISTRM_t_TOKEN_INFORMATION_CLASS D 

RVCALLBACK@20_-_RPC_MESSAGE 

MENUTEMPLATEA 

HMIDI u PFNPROPSHEETCALLBACK PSECURITY_DESCRIPTOR 

HMEN U H WINSTA 

1 0 LCSGAMUTMATCH ^RPC_CLIENT_FREE@4_y_PMIDL_STUB_DESC 

LONG NDRSCONTEXT 

ARRAY_INF0_p_va_list_7_LPHMIXER_X_ TIMERPROC_X_ 
DRAWSTATEPROC HINSTANCE_'*_FOURCC_ 

MIDL_STUB_MESSAGE_"_SECURITYJNFORMATION_X_ENUMRESTYPEP 

15 ROC_a_HANDLETABLE_7_ LPHWAVEIN_ 

_PFORMAT_STRING_"_CALTYPE_7_LPHANDLE RPCMGMTAUTHORI 

ZATION_FN_!_LANGID"_t_SECURITY_IMPERSONATION_LEVEL fpos_t_u_S 

OCKET BOOLEAN_7_RPC_EP_INQ_HANDLE 

HWND MMIOPROC@16 LPHANDLER_FUNCTION_t_EXCEPTION_DIS 

20 POSITION_tXLAT_SIDE 

HHOOK LPTHREAD_START_ROUTINE 7_ 

LPHWAVEOUT HPALETTE_X_PROPENUMPROCEX W H MODULE W 

AVECALLBACK@20 RPC CLIENT ALLOC@4 H ANDLE HMIXER 

_!_PWORD_X_PROPENUMPROCEXA HCOLORSPACE_X_EDITWORDBR 

25 EAKPROCA GENERICBINDINGROUTINE !_u_short_7_ 

LPHMIDIIN_X_LOCALE_ENUMPROCW 

_"_DWORD_X_GRAYSTRINGPROC_t_DESCKIND 

_7_PHKEY"_®_LPTOP_LEVEL_EXCEPTION_FILTER 

_"_LCID LPFNADDPROPSHEETPAGE__u_char_X_LOCALE_ENUMPROCA 

30 HRGN_t_ACL_rNFORMATION_CLAS S ^tSYSKTND TIMECALLBACK@20_ 

PACCESS_TOKEN SC_LOCK_X_LINEDDAPROC PHANDLERROUTIN 

E"_!_PSECURITY_DESCRIPTOR_CONTROL_t_FUNCKrND 

FXPT2DOT30 LPLONG 

35 HGLRC H MIDIOUT t 

INVOKEKIND HMIDI STRM 

HFONT 

HPEN 

HICON 

40 PVOID 

tagMET ARECORD ' 'REG SAM t OLEUPDATE__u_MCIDEVICEID_ 

_LPSERVICE_MAIN_FUNCTIONW 
IWORD HMETAFILE_X_ ABORTPROC 

^HDRVR_$_LPSERVICE_MAIN_FUNCTIONA_z_LPPRINTHOOKPROC_u_si 

45 ze_t LCSCSTYPE 

PBYTE LRESULT ) 
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MFENUMPROC 
_e_FPTR 
HKEY 

UCHAR PTHREADSTARTROUTINE ! wctype t I RPC HANDLE 

5 HDROP MEMBERID 

SHORT_!_wchar_t_u_MMRESULT XMIT_HELPER_ROUTINE RPC_BI 

NDING_HANDLE 

" HIMC I RPC MUTEX 

HMIXEROBJ_z_LPSETUPHOOKPROC_,_RPC_BLOCKING_FUNCTION_ 

10 HBRUSH_X_ 

SENDASYNCPROC_!FILEOP_FLAGS_/_LPTIMECALLBACK__handle_t H 

LOCAL 

_t_HFILE < < _<_J:\Vb60\Line21\funct.c_± ! » A E B I> 

_P &_^_Vi_b M_ A _Z_Y_I_u_7_A_F_L_{_E_!_K_U_ZJ_Z_U_i_- 

n u 

._5_:_A_N_\_v_,,_z_-<_^_D_6j>_a_6 "_'_5_F_P_U_ A _e_s_y_'_jzS_§_n 

_^_D_6_I>_a_6 $_._3_9_C_M_WJ_eJ_ A _~J_<<_ 1 _A_E_N_0_a_6_!_+_5_F_p_ 

20 ZJJSjLrjBj J< JO_0_a_6_2_L) _t "#$%&- 

yi2345689@ABCDEFOPQSTUWZ[]^ceMopqry|}~iD „,...§ ulu ' "' 

™s □ j 0£a¥|§"© a «---®± ' |it , 1 » 1 /2%AAAgEEEiiDN66 L^Maaaaaeiuio0uuuyJ)_ 

~ !_#_%_&_(_*_+_/_l_3_5_6_8_:_;_>_@_B_C_E_G_H_L_M_ 

25 N_P_Q _Debug/Parity.objF_<Microsoft (R) 32-bit C/C++ Optimizing Compiler 

Version 10.00 

J __parity_ _Debug/Tests.objF__<Microsoft (R) 32-bit C/C++ Optimizing Compiler 

Version 10.002 U ' _3 DefaultTest field ch p_mes 1_ 

cStatePtr__._T_. Ju 3 NullTest field_ ch p mes 1_ 

30 cStatePtr_._I_9_4£ _3_ FIXDSTest field ch p mes 1_ 

cStatePtr_2_H_F_AU _3_XDSStartTest field_ ch p mes 1_ 

cStatePtr_2_A_I_D" 

3 XDSContTest field_ ch p mes 1_ cStatePtr_.__<_/_*k 

_3_ 

35 XDSEndTest field ch p mes 1_ cStatePtr_2_,_=_8s 

3 ControlTest field ch p_mes 1_ cStatePtr_2_@_p kx 

_3_TextModeTest field_ ch p mes 1_ cStatePtr 

_uyyyt_c_._A_p kG 3 

RollUpTest field c h p mes 1_ cStatePtr 

40 _iiyyyt_c_2_L_b ]_3 PaintOnTest field ch p mes 1_ cStatePtr 

iiyyyt_c_._B_b ] 3 PopOnTest field c h p mes 1_ cStatePtr 

"uyyyt~c_6_\_b ] {_3 EndOfCaptionTest field ch p mes 1_ 

cStatePtr 

_uyyyt_c_._a_N IY_3 PACTest field ch p mes 1_ cStatePtr 

45 _iiyyyt_c_2_„_' /+ 

_3 CtrlChangeTest field ch p mes 1_ cStatePtr 
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6yyyt f 0yyyt Ctrl 
_iiyyyt_c_* b ] 3 

3 CRTest field ch p mes 1_ cStatePtr 

_uyyyt_c_._'_\ W 3 URLTest field ch p mes 1_ cStatePtr 

5 _iiyyyt_c_._$ V_ Q_q_J_ 

URLEndTest field ch p mes 1_ cStatePtr 

_6yyyt_l 
_0yyyt_f 

_iiyyyp_t XMTJtOUTINE_QUINTUPLE GENERIC_BINDING_INFO 

1 0 tagRPCOLEMESSAGE & MALLOC FREE STRUCT"_( GENERICBINDI 

NG_ROUTENE_PAIR_&_MALLOC_FREE_STRUCT * COMMFAULTOFFSET 

S"_. FULL_PTR_TO_REFID_ELEMENT"_(_GENERIC_BINDING_ROUTINE_PAIR 

XMIT_ROUTINE_QUINTUPLE"_, PFULL_PTR_TO_REFID_ELEMENT 

1 GUID 3 LPCLSID 6 tagENHMETARECORD 

1 5 1 GUID L MIDL STUB DESC_S FULL_PTR_XLAT_TABLES ^PROP 

SHEETPAGEA f PROPSHEETPAGEW 

_l_CLSID_7_XDSState_,_IRpcChannelBufferVtbl_„_DLGTEMPLATE_J RP 

C_SYNTAX_IDENTIFIER_(E_EXCEPTION_RECORD_Z__OVERLAPPED_' 

FLOATING_SAVE_AREA 

20 _1_IID_,,_DLGTEMPLATE PROPSHEETPAGEA ' LPDLGTEMPLATEA_f 

^PROPSHEETPAGEW 

_9_sval_"_tagPOINT_— _CONTEXT_™_RPC_VERSION 
_"_POINT_— _CONTEXT 
_3_LPnD_%o_PEXCEPTION_RECORD 
25 _9_SVAL__>_val_context 
^HDWP_H_cState 

_u_PUINT RPC_SS_THREAD_HANDLE_X_CALINFO_ENUMPROCW R 

PCAUTHIDENTITYHANDLE 6_ 

ENHMETARECORD&_ 

30 _SECURITY_CONTEXT_TRACKING_MODE_X_DATEFMT_ENUMPROCW t_ 

PSID_NAME_USE ^MIDICALLBACK@20"_!_SECURITY_DESCRIPTOR_CONTROL 

EXPR_EVAL_z_LPFRHOOKPROC_X_CALINFO_ENUMPROCA_i_PFNC 
ALLBACK_X_DATEFMT_ENUMPROCA_n_ICMENUMPROCW_©_ 

35 PQUERYHANDLER 

_@_FLOAT_"_LPDWORD RPC_AUTHZ_HANDLE_u MMVERSION 

HRSRC ^RPC_FORWARD_FUNCTION@20"_®_PTOP_LEVEL_EXCEPTION_F 

ILTER 

^HCONV 

40 

BYTE LONGLONG_a_LPPROPSHEETPAGEW_±JCMENUMPROCA_!_LP 

WSTR_"_ACCESS_MASK_"_COLORREF_Z_LPPROPSHEETPAGEA_'_PIMAG 

E TLS CALLBAC K H WAVEOUT $ PRPC_RUNDQWN HENHMETAFILE 

_t_PBOOL_J_RPC_SYNTAX_IDENTIFIER_X_DESKTOPENUMPROCW_"_u_lo 

45 ng 

t SPTR ! LPOLESTR NDRCCONTEXT 



-130- 



_uJJINT_X_WNDENUMPROC_X_DESKTOPENUMPROCA_t_WNDPROC_"_ 

HREFTYPE # DWORDLONG 

_p_LPSTR_t 

TOKENTYPE 
5 _!_BSTR 

RPCNSHANDLE 

HDESK " _PDWORD_° EXCEPTION_POINTERS_! 

CLIPFORMAT_!_LPWORD_t_TYPEKIND_X_CODEPAGE_ENUMPROCW 

_p_HPSTR_d_LPFNPSPCALLBACKW_!_OLECHAR_X_ENUMRESLANGPROC 
10 _t_VARKIND_X_CODEPAGE_ENUMPROCA_J_LPFNPSPCALLBACKA 

RPC_BUFPTR_X_WINSTAENUMPROCW_ 1 /2_RPC_AUTH_KEY_RETRIEVAL_FN 

_!_ LPCOLESTR SCHANDLE 

HTASK_A_REGISTERWORDENUMPROCW_X_TMEFMT_ENUMPROCW_ 

X_WINSTAENUMPROCA 
1 5 _!_ATOM_!_LPCWSTR_X_DLGPROC_A_REGISTERWORDENXMPROCA 

HOLEMENU 
_t_BOOL RPCJ3BJECTJNQ_FN@12 

_"_ULONG_X_TIMEFMT_ENUMPROCA_«_PEXCEPTION_POINTERS_^B_tag 
HELPINFO_t_CALLCONV___LPMENUTEMPLATEA HGLOBAL LPVOI 

20 D 

RPC_IF_HANDLE_X_HOOKPROC 
_p_PSTR_z_LPCFHOOKPROC_!_USHORT_7_ 
LPHMIDIOUT HRESULT 

_PUCHAR ^DISPID_E_PFULL_PTR_XLAT_TABLES_z_LPCCHOOKPROC_ 

25 LPBYTE 

_X_PROC 

_A_DATE_D_ 

ENHMFENUMPROC 

PSID 

30 _t_LPINT 

_N_SNB 

_p_CHAR_p_LPCSTR_6_SERVER_ROUTINE 

SCODE&_0_LPOVERLAPPED_COMPLETION_ROUTINE_U_ 

YIELDPROC !_VARTYPE HWAVEIN_B_IRpcChaimelBuffer_B_IRpc 

35 ChannelBuffer_z_LPPAGEPAINTHOOK_t 

OLERENDER_u_LPUINT_X_GOBJENUMPROC 

HMETAFILEPICT_N__LPBSTR 

Ibyte_@_PFLOAT_"_PSECURITY_INFORMATION_$_NDR_RUNDOWN^_ 
40 LPCVOID_"_SERVICE_STATUS_HANDLE_z_LPPAGESETUPHOOK 
u u int ! wint t a 

LPMMIOPROC 

STUB_THUNK 

! WCHAR H GDIOBJ X ENUMRESNAMEPROC HCONVLIST 

45 HSZ 

_t INT HDDEDATA a tagHANDLETABLE_X_FARPROC X_ 
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PROPENUMPROCW_"_MCIERROR_t_LPBOOL 

PLONG_u_WPARAM 

HMMIO z 

LPOFNHOOKPROC_?_HPROPSHEETPAGE_QUERYHANDLER_X_ 
5 PROPENUMPROCA 

HK L H ACCEL " 

RPCOLEDATAREP VARIANTBOOL HCURSOR_7_PHANDLE_e_ 

onexit t X 

FONTENUMPROCW__"_LCTYPE_i_RPC_DISPATCH_FUNCTION 

10 "CALID 

RPC_STATUS HMIDIIN 

HDC 6 MSGBOXCALLBACK_X_ 

FONTENUMPROC A GENERIC UNBIND ROUTINE HBITMAP LPARA 

M 

1 5 MENUTEMPLATEW_7_LPHMIDISTRM_t_TOKEN_INFORMATION_CLASS D 

RVCALLBACK@20__-_RPC_MESSAGE 

MENUTEMPLATEA 

HMIDI u PFNPROPSHEETCALLBACK PSECURITY_DESCRIPTOR 

HMEN U H WINSTA 

20 LCSGAMUTMATCH ^RPC_CLIENT_FREE@4__y_PMIDL_STUB_DESC 

LONG NDR SCONTEXT 

ARRAY_INFO_p_va_list_7_LPHMIXER_X_ TIMERPROC_X_ 
DRAWSTATEPROC HJNSTANCE_"_FOURCC_ 

MIDL_STUB_MESSAGE ''_SECURITY_INFORMATION_X_ENUMRESTYPEP 

25 ROC_a_HANDLETABLE_7_ LPHWAVEIN_ 

PFORMATSTRING "CALTYPE 7 LPHANDLE RPC MGMT AUTHORI 

ZATION_FN_!_LANGID"_t_SECURITY_IMPERSONATION_LEVEL fpos_t_u_S 

OCKET_ _B OOLEAN 7_RPC_EP_INQ_HANDLE 

HWND MMIOPROC® 1 6 LPHANDLER_FUNCTION_t_EXCEPTION_DIS 

3 0 POSITION_t XLAT_SIDE 

HHOOK LPTHREADSTARTROUTINE 7_ 

LPHWAVEOUT HPALETTE_X_PROPENUMPROCEXW HMODULE W 

AVECALLBACK@20 RPC CLIENT ALLOC@ 4 H ANDLE HMTXER 

_!_PWORD_X_PROPENUMPROCEXA__HCOLORSPACE_X_EDITWORDBR 

35 EAKPROCA ^GENERIC_BINDING_ROUTINE_!_u_short_7_ 

LPHMIDIIN_X_LOCALE_ENUMPROCW 
_"_DWORD_X_GRAYSTRINGPROC_t_DESCKIND 
_7_PHKEY M _®_LPTOP_LEVEL_EXCEPTION_FILTER 
"LCID LPFNADDPROPSHEETPAGE__u_char_X_LOCALE_ENUMPROCA 

40 ^HRGN_t_ACL_INFORMATION_CLASS_t_SYSKIND_TIMECALLBACK@20_ 

PACCESS TOKEN SC LOCK X LINEDDAPROC PHANDLER ROUTIN 

E"_!_PSECURITY_DESCRIPTOR_CONTROL_t_FUNCKIND_ 

FXPT2DOT30 LPLONG 

45 HGLRC HMIDIOUT_t 

INVOKEKIND HMIDISTRM 
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HFONT 

HPEN 

HICON 

PVOID 

5 tagMETARECORD " REGSAM t OLEUPDATE__u_MCIDEVICEID_ 

_LPSERVICE_MAIN_FUNCTIONW 
! WORD HMETAFILE_X_ ABORTPROC 

H DRVR $ LPSERVICE MAIN FUNCTIONA_z_LPPRINTHOOKPROC_u_si 

zej LCSCSTYPE 

10 PBYTE LRESULT_J_ 

MFENUMPROC 
_e_FPTR 
HKEY 

UCHAR PTHREADSTART ROUTINE ! wctype t I RPC HANDLE 

15 HDROP MEMBERID 

SHORT_!_wchar_t_u_MMRESULT XMIT_HELPER_ROUTINE RPC_BI 

NDINGHANDLE 

" HIM C I RPC MUTEX 

HMIXEROBJ_z_LPSETUPHOOKPROC_,_RPC_BLOCKING_FUNCT10N_ 

20 HBRUSH_X_ 

SENDASYNCPROC !FILEOP_FLAGS_/__LPTIMECALLBACK handlej H 

LOCAL 

_t_HFILE 'iE <' ^_J:\Vb60\Line21\Tests.c_u f p u { 

— z£©AEDxUa 

25 
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25 701 56789:=@ACDFGJMNPQSTWZ[] A, adghjkmnqtuwxz{~D ,„. . .$ A <ZD □ """•~>oezY j 0"© 
«-XgT 2 t 101 4 1 /2%^aAa_ _Debug/XDSMessages.objF_<Microsoft (R) 32-bit C/C++ 
Optimizing Compiler Version 10.00*_%e_aP_K_Def__p_mes_l_ 

cStatePtr_*_P_"_ 9 K Vcp p_mes_l_ 

cStatePtr_6yyyp_b2_6yyyp_bl_0yyyp_type_iiyyyp_fla 

30 5 r K Typ p mes 1_ cStatePtr 

_uyyyt_i XDSMes :_4_mpaaRatings 8:_4_tvpgRatings X:_L_flag 

mask '_4_rypes XMT_ROUTINE_QUINTUPLE GENERICBINDING 

INFO tagRPCOLEMESSAGE &__MALLOC_FREE_STRUCT"_( GENERIC, 

BINDING_ROUTINE_PAIR_&_MALLOC_FREE_STRUCT_* COMM_FAULT_0 

35 FFSETS" FULL_PTR_TO_REFID_ELEMENT"_( GENERIC_BINDING_ROUTINE 

PAI R XMIT ROUTINE_QUINTUPLE"_, PFULL_PTR_TO_REFID_ELEMENT 

_1 GUID 3 LPCLSID 6 tagENHMETARECORD 

_1_GUID_L_MIDL_STUB_DESC_S FULL_PTR_XLAT_TABLES PROP 

SHEETPAGEA f PROPSHEETPAGEW 

40 _l_CLSID_7_XDSState_,_IRpcChannelBufferVtbl_,,_DLGTEMPLATE_J RP 

C_SYNTAX_IDENTIFIER_CE_EXCEPTION_RECORD_Z_OVERLAPPED_' 

FLOATINGSAVEAREA 

_1_JID_„_DLGTEMPLATE PROPSHEETPAGEA '_LPDLGTEMPLATEA f 

PROPSHEETPAGEW 

45 _9_sval_"_tagPOINT_— _CONTEXT_™_RPC_VERSION 
" POINT — CONTEXT 
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_3_LPIID_%_PEXCEPTI0N_REC0RD 

9 SVAL > val_context 

H DWP H cState 

_u_PUINT RPC_SS_THREAD_HANDLE_X_CALINFO_ENUMPROCW R 

5 PC_AUTH_IDENTITY_HANDLE 6_ 

ENHMETARECORD&_ 

_SECURITY_CONTEXT_TRACKING_MODE_X_DATEFMT_ENUMPROCW_t_ 
PSID_NAME_USE ^MIDICALLBACK@20"_!_SECURITY_DESCRIPTOR_CONTROL 

10 EXPR_EVAL_z_LPFRHOOKPROC_X_CALINFO_ENUMPROCA_j_PFNC 
ALLBACK_X_DATEFMT_ENUMPROCA_D_ICMENUMPROCW_©_ 
PQUERYHANDLER 

_@_FLOAT_"__LPDWORD RPC_AUTHZ_HANDLE_u MMVERSION 

HRSRC ^RPC_FORWARD_FUNCTION@20"_®_PTOP_LEVEL_EXCEPTION_F 

15 ILTER 

HCONV 



_BYTE LONGLONG_a_LPPROPSHEETPAGEW_±_ICMENUMPROCA_!_LP 

WSTR_"_ACCESS_MASK_"_COLORREF_Z_LPPROPSHEETPAGEA_'_PIMAG 

20 E_TLS_C ALLB ACK HWAVEOUT $_PRPC_RUNDOWN___HENHMETAFILE 

_t_PBOOL_J_RPC_SYNTAX_IDENTIFIER_X_DESKTOPENUMPROCW_"_u_lo 

ng 

_t_SPTR_!_LPOLESTR__NDR_CCONTEXT 

_u_UINT_X_WNDENUMPROC_X_DESKTOPENUMPROCA_LWNDPROC_"_ 

25 HREFTYPE # DWORDLONG 

_p_LPSTR_t 
TOKEN_TYPE 

_!_BSTR 

RPCN SHANDLE 

30 ^HDESK_"_PDWORD_°_EXCEPTION_POINTERS_! 

CLIPFORMAT_!_LPWORD_t_TYPEKIND_X_CODEPAGE_ENUMPROCW 
_p_HPSTR_d_LPFNPSPCALLBACKW_!_OLECHAR_X_ENUMRESLANGPROC 
_t_VARKIND_X_CODEPAGE_ENUMPROCA_J_LPFNPSPCALLBACKA__ 
RPC_BUFPTR_X_WINSTAENUMPROCW_ 1 / 2 _RPC_AUTH_KEY_RETRIEVAL_FN 

35 __!_ LPCOLESTR SC_HANDLE 

HTASK_A_REGISTERWORDENUMPROCW_X_TIMEFMT_ENUMPROCW 

X_WINSTAENUMPROCA 

_!_ATOM_!_LPCWSTR_X_DLGPROC_A_REGISTERWORDENUMPROCA 

_HOLEMENU 

40 _t_BOOL RPC_OBJECT_INQ_FN@12 

_"_ULONG_X_TIMEFMT_ENUMPROCA_«_PEXCEPTION_POINTERS_yE_tag 

HELPINFO_t_CALLCONV LPMENUTEMPLATEA HGLOBAL LPVOI 

D 

RPC_IF_HANDLE_X_HOOKPROC 
45 _p_PSTR_z_LPCFHOOKPROC_!_USHORT_7_ 
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LPHMIDIOUT HRESULT_ 

PUCHAR DISPID E PFULL PTR XLAT_TABLES_z_LPCCHOOKPROC_ 

LPBYTE 

_X_PROC 
5 _A_DATE_D_ 

ENHMFENUMPROC 

PSID 

_t_LPINT 
_N_SNB 

10 _p_CHAR_p_LPCSTR_6_SERVER_ROUTINE 

SCODE&_0_LPOVERLAPPED_COMPLETION_ROUTINE_U_ 

YIELDPROC ! VARTYPE H WAVEIN B IRpcChannelBuffer_fi_IRpc 
ChannelBuffer_z_LPPAGEPAINTHOOK_t 

OLERENDER_u_LPUINT_X_GOBJENUMPROC 

15 HMETAFILEPICT_N_LPBSTR 

3byte_@_PFLOAT_"_PSECURITY_INFORMATION_$_NDR_RUNDOWN 

LPCVOID_"_SERVICE_STATUS_HANDLE_z_LPPAGESETUPHOOK 

u u int ! wint t a 

20 LPMMIOPROC 

STUB_THUNK 

_!_WCHAR HGDIOBJ_X_ENUMRESNAMEPROC HCONVLIST 

HSZ 

_t_INT HDDEDATA_a_tagHANDLETABLE_X_FARPROC_X_ 

25 PROPENUMPROCW_"_MCIERROR_t_LPBOOL 

PLONG_u_WPARAM 

HMMIO_z_ 

LPOFNHOOKPROC_5_HPROPSHEETPAGE_QUERYHANDLER_X_ 
PROPENUMPROCA 

30 HKL HACCEL " 

RPCOLEDATAREP VARIANT_BOOL HCURSOR_7_PHANDLE_e_ 

onexit t X 

FONTENUMPROCW_"_LCTYPE_L_RPC_DISPATCH_FUNCTION 

_"_CALID 

35 RPC_STATUS HMIDIFN 

HDC_6_MSGBOXCALLBACK_X_ 

FONTENUMPROCA GENERIC_UNBIND_ROUTINE HBITMAP LPARA 

M 

MENUTEMPLATEW_7_LPHMIDISTRM_t_TOKEN_INFORMATION_CLASS D 

40 RVCALLBACK@20_-_RPC_MESSAGE 

MENUTEMPLATEA 

HMIDI_u_PFNPROPSHEETCALLBACK PSECURITY_DESCRIPTOR 

HMEN U HWINSTA 

LCSGAMUTMATCH ^RPC_CLIENT_FREE@4_y_PMIDL_STUB_DESC 

45 LONG NDRSCONTEXT 

ARRAY_INFO_p_va_list_7_LPHMIXER_X_ TIMERPROC_X_ 
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DRAWSTATEPROC HINSTANCE_"_FOURCC_ 

MIDL_STUB_MESSAGE_"_SECURITY_INFORMATION_X_ENUMRESTYPEP 

ROC_a_HANDLETABLE 7_ LPHWAVEIN_ 

PFORMATSTRING "CALTYPE 7_LPHANDLE RPCMGMTAUTHORI 

5 ZATION_FN_!_LANGID"_t_SECURITY_IMPERSONATION_LEVEL fpos_t_u_S 

OCKET BOOLEAN_7_RPC_EP_INQ_HANDLE 

HWND MMIOPRQC@16 LPHANDLER_FUNCTION_t_EXCEPTION_DIS 

POSITION_t XLATSIDE 

HHOOK LPTHREAD_START_ROUTINE_7_ 

1 0 LPHWAVEOUT HPALETTE_X_PROPENUMPROCEXW__HMODULE W 

AVECALLBACK@20 RPC_CLIENT_ALLOC@4 HANDLE HMIXER 

_!_PWORD_X_PROPENUMPROCEXA__HCOLORSPACE_X_EDITWORDBR 

EAKPROCA ^GENERIC_BINDING_ROUTINE_!_u_short_7_ 

LPHMIDIIN_X_LOCALE_ENUMPROCW 

15 _" DWORD_X_GRAYSTRINGPROC_t_DESCKIND 
_7_PHKEY"_®_LPTOP_LEVEL_EXCEPTION_FILTER 

_»_LCID LPFNADDPROP SHEETPAGE_ _u_char_X_LOC ALE_ENUMPROC A 

HRGN_t_ACL_INFORMATION_CLASS_t_SYSKIND TIMECALLBACK@20_ 



20 PACCESS_TOKEN__SC_LOCK_X_LINEDDAPROC PHANDLERROUTIN 

E"_!_PSECURITY_DESCRIPTOR_CONTROL_t_FUNCKIND 

FXPT2DOT3 0 LPLONG 

HGLRC HMIDIOUT__t 

INVOKEKIND HMIDISTRM 

25 HFONT 

HPEN 

HICON 

PVOID 

tagMETARECORD "_REGSAM t OLEUPDATE_u_MCIDEVICEID_ 

30 _LPSERVICE_MAIN_FUNCTIONW 

_i_WORD HMETAFILE_X_ ABORTPROC 

HDRVR_$_LPSERVICE_MAIN_FUNCTIONA_z_LPPRINTHOOKPROC_u_si 

ze_t LCSCSTYPE 

PBYT E L RESULT ) 

35 MFENUMPROC 
_e_FPTR 
HKEY 

UCHAR PTHREADSTARTROUTINE !_wctype_t IRPCHANDLE 

HDROP MEMBERID 

40 SHORT_!_wchar_t_u_MMRESULT__XMIT_HELPER_ROUTINE ^RPC_BI 

NDINGHANDLE 

" HIMC I RPC MUTEX 

" _ HMIXEROBJ_z_LPSETUPHOOKPROC_,_RPC_BLOCKING_FUNCTION_ 

HBRUSH_X_ 

45 SENDASYNCPROC !FILEOP_FLAGS_/_LPTIMECALLBACK handle_t H 

LOCAL 
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t HFILE P T DP T J:\Vb60\Line21\XDSMessages.c -P_V _g_— 
_"_y_4_9_B_S ^_°_YJ.^_._@_QJ_xJJ_O>_i_0_e_6^_#_/_@_E_V_Ld_u_¥_t 

_ 0J _K_P "#% , ()*+,-/01234568:<?BCDEGHIJ_ 

_Debug/L21Dec.objF_<Microsoft (R) 32-bit C/C++ Optimizing Compiler Version 

5 1 0.00. a □ M DHMain ^hInst"_"_ul_reason_being_called 

lpReserved 2 d § O Line2 1 Decode field ch p_mes 

_oyyytJ 

uyyyt_i_2_a_E AA_P_stateMachine field 

_ch p mes iiyyyE estate . 4 < R 

10 ShiftRight "_value shift . " ¥ R ShiftLeft "_value shift 0 

_S_ DataState °D_H_CCstate M_l_ 

cStatePt r XMIT ROUTINE QUINTUPLE GENERIC BINDING IN 

FO tagRPCOLEMESSAGE_&__MALLOC_FREE_STRUCT"_( GENERICBIN 

DING_ROUTINE_PAIR_&_MALLOC_FREE_STRUCT_* COMM_FAULT_OFFS 

1 5 ETS"_. FULL_PTR_TO_REFID_ELEMENT"_( GENERIC_BINDING_ROUTINE_P 

AI R X MIT RQUTINE_QUINTUPLE"_,_PFULL_PTR_TO_REFID_ELEMENT 

1 GUID 3_LPCLSID_6_tagENHMETARECORD 

_1_GUID_L_MIDL_STUB_DESC_S_FULL_PTR_XLAT_TABLES PROP 

SHEETPAGEA f PROPSHEETPAGEW 

20 J_CLSID_7_XDSState_,_IRpcChannelBufferVtbl_„_DLGTEMPLATE_t RP 

C_SYNTAX_IDENTIFIER_<E_EXCEPTION_RECORD_Z_OVERLAPPED_' 

FLOATING_SAVE_AREA 

_1_HD_,,_DLGTEMPLATE PROPSHEETPAGEA_'_LPDLGTEMPLATEA_f 

_PROPSHEETPAGEW_"_tagPOINT_— _CONTEXT_™_RPC_VERSION 

25 _"_POINT_— _CONTEXT 

_3_LPnD_%o_PEXCEPTION_RECORD_>_val_context 

HDWP_H_cState 

_u_PUINT RPC_SS_THREAD_HANDLE_X_CALINFO_ENUMPROCW ^R 

PCAUTHIDENTITYHANDLE 6_ 

30 ENHMETARECORD&_ 

_SECURITY_CONTEXT_TRACKING_MODE_X_DATEFMT_ENUMPROCW_t_ 
PSID_NAME_USE MIDICALLBACK@20"_!_SECURITY_DESCRIPTOR_CONTROL 

EXPR_EVAL_z_LPFRHOOKPROC_X_CALINFO_ENUMPROCA_i_PFNC 
35 ALLBACK_X_DATEFMT_ENUMPROCA_n_ICMENUMPROCW_©_ 
PQUERYHANDLER 

_@_FLOAT_"_LPDWORD RPC_AUTHZ_HANDLE u MMVERSION 

HRSRC RPC_FORWARD_FUNCTION@20"_®_PTOP_LEVEL_EXCEPTION_F 

ILTER 
40 HCONV 



BYTE ^LONGLONG_a_LPPROPSHEETPAGEW_±_ICMENUMPROCA_!_LP 

WSTR_"_ACCESS_MASK_"_COLORREF_Z_LPPROPSHEETPAGEA_'_PIMAG 

E_TLS_CALLBACK HWAVEOUT_$_PRPC_RUNDOWN__HENHMETAFILE 

45. _t_PBOOL_$_RPC_SYNTAX_IDENTIFIER_X_DESKTOPENUMPROCW_"_u_lo 

ng 
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_t_SPTR_ ! LPOLESTR NDR CCONTEXT 

_u_UINT_X_WNDENUMPROC_X_DESKTOPENUMPROCA_1I_WNDPROC_"_ 

HREFTYPE # DWORDLONG 

_p_LPSTR_t 
5 TOKEN_TYPE 

_!_BSTR 

RPC_NS_HANDLE 

HDESK_"_PDWORD_°_EXCEPTION_POINTERS_! 

CLIPFORMAT_!_LPWORD_t_TYPEKIND_X_CODEPAGE_ENUMPROCW 
1 0 _p_HPSTR_d_LPFNPSPCALLB ACKW_!_OLECHAR_X_ENUMRESLANGPROC 

t_VARKIND_X_CODEPAGE_ENUMPROCA ] LPFNPSPCALLBACKA 

RPC_BUFPTR_X_WINSTAENUMPROCW_ 1 /2_RPC_AUTH_KEY_RETRIEVAL_FN 

_!_ LPCOLESTR SC_HANDLE 

HTASK_A_REGISTERWORDENUMPROCW_X_TIMEFMT_ENUMPROCW 

15 X_WINSTAENUMPROCA 

_!_ATOM_!_LPCWSTR_X_DLGPROC_A_REGISTERWORDENUMPROCA 

HOLEMENU 
_t_BOOL RPC_OBJECT_INQ_FN@ 1 2 

_"_ULONG_X_TIMEFMT_ENUMPROCA_«_PEXCEPTION_POINTERS_iE_tag 

20 HELPIOTO_t_CALLCONV__LPMENUTEMPLATEA___HGLOBAL LPVOI 

D 

RPC_IF_HANDLE_X_HOOKPROC 
j3_PSTR_z_LPCFHOOKPROC_!_USHORT_7_ 

LPHMIDIOUT HRESULT 
25 PUCHAR DISPID E PFULL_PTR_XLAT_TABLES_z_LPCCHOQKPROC_ 

_LPBYTE 
_X_PROC 
_A_DATE_D_ 
ENHMFENUMPROC 

30 ^PSID 

_t_LPINT 
_N_SNB 

_p_CHAR_p_LPCSTR_6_SERVER_ROUTINE 

SCODE&_0_LPOVERLAPPED_COMPLETION_ROUTINE_U_ 

35 YIELDPROC ! VARTYPE HWAVEIN_B_IRpcChannelBuflfer_B_IRpc 

ChannelBuffer_z_LPPAGEPAINTHOOK_t 

OLERENDER_u_LPUINT_X_GOBJENUMPROC 

HMET AFILEPICT_N_LPB STR 

40 >yte_@_PFLOAT_"_PSECURITY_INFORMATION_$_NDR_RUNDOWN 

LPCVOID_"_SERVlCE_STATUS_HANDLE_z_LPPAGESETUPHOOK 

_u_u_int !_wint_t a_ 

LPMMIOPROC 

STUBTHUNK 
45 _9_sval 

! WCHAR HGDIOBJ X _ ENUMRESNAMEPROC HCONVLIST 
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HSZ 

TINT H DDEDATA__a__tagHANDLETABLE_X_FARPROC_X_ 

PROPENUMPROCW_"_MCIERROR_t_LPBOOL 

PLONG_u_WPARAM 

5 HMMIO _z_ 

LPOFNHOOKPROC_9_HPROPSHEETPAGE_QUERYHANDLER_X_ 

PROPENUMPROCA 

HKL HACCEL " 
RrcOLEDATAREP_VARIANT_BOOL HCURSOR_7_PHANDLE__e_ 

10 _onexit_t_X_ 

FONTENUMPROCW_"_LCTYPE_J_RPC_DISPATCH_FUNCTION 

_"_CALID 

RPC_STATUS HMIDIIN 

HDC_6_MSGBOXCALLBACK_X_ 

1 5 FONTENUMPROC A GENERIC_UNBIND_ROUTINE HBITMAP LPARA 

M 

MENUTEMPLATEW_7_LPHMIDISTRM_t_TOKEN_INFORMATION_CLASS D 

RVCALLBACK@20_-_RPC_MESSAGE 

MENUTEMPLATEA 

20 HMIDI_ii_PFNPROPSHEETCALLBACK PSECURITY_DESCRIPTOR 

HMEN U H WINSTA 

LCSGAMUTMATCH F^C_CLIENT_FREE@4_y_PMIDL_STUB_DESC 

__LONG__NDR_SCONTEXT^__ 

ARRAY_INFO __p_va_list_7_LPHMIXER_X_ TIMERPROC_X_ 

25 DRAWSTATEPROC HINSTANCE_"_FOURCC_ 

MIDL_STUB_MESSAGE "_SECURITY_INFORMATION_X_ENUMRESTYPEP 

ROC a_HANDLETABLE_7_ LPHWAVEIN_ 

^PFORMATSTRING "CALTYPE 7 LPHANDLE RPCMGMTAUTHORI 

ZATION_FN_!_LANGID"_t_SECURITY_IMPERSONATION_LEVEL Q>os_t_u_S 

30 OCKET _BOOLEAN 7_RPC_EP_INQ_HANDLE 

HWND _MMIOPROC@16 LPHANDLER_FUNCTION_t_EXCEPTION_DIS 

POSITION_t XLAT_SIDE 

HHOOK LPTHREAD_START_ROUTINE 7_ 

LPHWAVEOUT HPALETTE_X_PROPENUMPROCEXW__HMODULE W 

35 AVECALLBACK@20 RPC_CLIENT_ALLOC@4 HANDLE HMIXER 

_!_PWORD_X_PROPENUMPROCEXA__HCOLORSPACE_X_EDITWORDBR 

EAKPROCA ^GENERIC_BINDING_ROUTINE_!_u_short_7_ 

LPHMIDIIN_X_LOCALE_ENUMPROCW 
_"_DWORD_X_GRAYSTRINGPROC_t_DESCKIND 
40 _7_PHKEY"_®_LPTOP_LEVEL_EXCEPTION_FILTER 

» LCID LPFNADDPROPSHEETPAGE u_char_X_LOCALE_ENUMPROCA 

" " HRGN_t_ACL_INFORMATION_CLASS_t_SYSKIND TIMECALLBACK@20_ 



PACCESS_TOKEN SC_LOCK_X_LINEDDAPROC PHANDLERROUTIN 

45 E"_!_PSECURITY_DESCRIPTOR_CONTROL_t_FUNCKIND 

FXPT2DOT30 LPLONG 
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HGLRC HMIDIOUT_t 



10 



INVOKEKIND HMIDISTRM 

HFONT 

HPEN 

HICON 

PVOID 

tagMETARECORD_"_REGSAM_t OLEUPDATE_u_MCIDEVICEID_ 
_LPSERVICE_MAIN_FUNCTIONW 

t WORD HMETAFILE_X_ ABORTPROC 

~~ HDRVR $ LPSERVICE_MAIN_FUNCTIONA_z_LPPRINTHOOKPROC_u_si 



ze_t LCSCSTYPE 

PBYTE__LRESULT_J_ 

MFENUMPROC 

_e FPTR 

15 HKEY 

__UCHAR PTHREADSTARTROUTINE !_wctype_t__I_RPC_HANDLE 

HDROP MEMBERID 

HSHORT_!_wchar_t_u_MMRESULT XMIT_HELPER_ROUTINE RPC_BI 

NDINGHANDLE 

20 " HIMC I_RPC_MUTEX 

~ " HMlXEROBJ_z_LPSETUPHOOKPROC_,_RPC_BLOCKING_FUNCTION_ 

HBRUSH_X_ 

SENDASYNCPROC !FILEOP_FLAGS_/_LPTIMECALLBACK___handle_t H 

LOCAL 

25 t HFILE D_ 3 /4 <D_%_J:\Vb60\Line21\L21Dec.c_*D_- 

Z J_°_ 0 _A_6_aJ>__+_G_q_v_D_™_YJ_°_A_E_Y__=_B_XJ_b_xJ_D_f_<_' 

_z_¥_« !"#%&')+,-/04@CEGHIJLNOPRSVWX[\]_ 

Debug/stable.objF_<Microsoft (R) 32-bit C/C++ Optimizing Compiler Version 

10.00 0 

30 _T_ DataState ~ 

JJControlState Q_V_ 

XDSStartState °_V_XDSContState B W XDSDataState 

X XDSEndState 0 Y URLDataState XMIT_ROUTINE_QUINTUPLE_ 



GENERICBINDINGINFO tagRPCOLEMESSAGE & MALLOCFREESTRU 

35 CT" ( GENERIC BINDING_ROUTINE_PAIR_&_MALLOC_FREE_STRUCT_*_ 

COMM_FAULT_OFFSETSV FULL_PTR_TO_REFID_ELEMENT"_(_GENERIC_ 

BINDINGROUTENEPAIR ^XMIT_ROUTINE_QUINTUPLE"_,_PFULL_PTR_TO 

_REFID_ELEMENT 

1 GUID 3 LPCLSID_6_tagENHMETARECORD 

40 jZGUID_L_MIDL_STUB_DESC_S FULLPTRXLATTABLES ^PROP 

SHEETPAGEA f PROPSHEETPAGEW 

1 CLSID , IRpcCharmelBufferVtbl „ DLGTEMPLATE % RPC_SYNTAX_ID 

ENTIFIER_(E_EXCEPTION_RECORD_Z_OVERLAPPED_ s FLOATINGSA 

VE AREA 

45 i ""no DLGTEMPLATE PROPSHEETPAGEA_'_LPDLGTEMPLATEA_f 

^PROPSHEETPAGEW_"_tagPOINT__— _CONTEXT_™_RPC_VERSION 
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_"_POINT_— _CONTEXT 

_3_LPIID_%o_PEXCEPTION_RECORD_>_val_context 
HDWP 

_u_PUINT ^RPC_SS_THREAD_HANDLE_X_CALINFO_ENUMPROCW R 

5 PC_AUTH_IDENTITY_HANDLE 6_ 

ENHMETARECORD&_ 

_SECURITY_CONTEXT_TRACKING_MODE_X_DATEFMT_ENUMPROCW_t_ 
PSID_NAME_USE MIDICALLBACK@20"_!_SECURITY_DESCRIPTOR_CONTROL 



10 EXPR_EVAL_z_LPFRHOOKPROC_X_CALINFO_ENUMPROCA_i_PFNC 
ALLBACK_X_DATEFMT_ENUMPROCA_n_ICMENUMPROCW_©_ 
PQUERYHANDLER 

_@_FLOAT_"_LPDWORD RPCAUTHZHANDLE u MMVERSION 

HRSRC RPC_FORWARD_FUNCTION@20"_®_PTOP_LEVEL_EXCEPTION_F 

15 ILTER 

HCONV 



BYT E L ONGLONG a LPPROPSHEETPAGEW ± ICMENUMPROCA ! LP 
WSTR_"_ACCESS_MASK_"_COLORREF_Z_LPPROPSHEETPAGEA_'_PIMAG 

20 E TLS CALLBACK HWAVEOUT $ PRPC RUNDOW N H ENHMETAFILE 

_t_PBOOL_J__RPC_SYNTAXJDENTIFIER_X_DESKTOPENUMPROCW_"_u_lo 

_t_SPTR_!_LPOLESTR NDRCCONTEXT 

3_UINT_X_WNDENUMPROC_X_DESKTOPENUMPROCA_l_WNDPROC_"_ 
25 HREFTYPE # DWORDLONG 

_p_LPSTR_t 

TOKEN_TYPE 

_!_BSTR 

RPCNSHANDLE 
30 HDESK " PDWORD 0 EXCEPTION POINTERS ! 

CLIPFORMAT__!_LPWORD_t_TYPEKIND_X_CODEPAGE_ENUMPROCW 

_p_HPSTR_d_LPFNPSPCALLBACKW_!_OLECHAR_X_ENUMRESLANGPROC 
t VARKIND X CODEPAGE ENUMPROCA 1 LPFNPSPCALLBACKA 

RPC_BUFPTR_X_WINSTAENUMPROCW_ 1 / 2 _RPC_AUTH_KEY_RETRIEVAL_FN 
35 _!_ LPCOLESTR SC_HANDLE 

HTASK_A_REGISTERWORDENUMPROCW_X_TIMEFMT_ENUMPROCW 

X ^WINSTAENUMPROCA 

_!_ATOM_!_LPCWSTR_X_DLGPROC_A_REGISTERWORDENUMPROCA 

HOLEMENU 

40 _t_BOOL RPC_OBJECT_INQ_FN@12 

_"_ULONG_X_TIMEFMT_ENUMPROCA_«_PEXCEPTION_POINTERS_^_tag 

HELPINFO t CALLCONV L PMENUTEMPLATEA HGLOBAL LPVOI 
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30 ntemational?$AA@??_C@_OM@PJEI@Instmction?$AA@??_C@_OM@LKAF@Informati 
on?SAA@??_C@_06KKNE@Horror?$AA@??_C@_04OGPG@Home?$AA@??_C@_06K 
GO@Hockey?$AA@??_C@_05LHBI@Hobby?$AA@??_C@_07JFNM@History?$AA@? 
?_C@_0M@PJHA@ffigh?5School?$AA@??_C@_06MACP@Health?$AA@??_C@_0L@ 
JHGG@Government?$AA@??_C@_04NPML@Golf?$AA@??_C@_06CMMI@Garden?$ 

35 AA@??_C@_09CNCP@Game?lQuiz?$AA@??_C@_0M@ENFA@Fund?5Raiser?$AA@? 
?_C@_07JNNB@Foreign?$AA@??_C@_08NPEO@Football?$AA@??_C@_04JEEI@Foo 
d?$AA@??_C@_07IHEG@Fiction?SAA@??_C@_07MCOL@Fashion?$AA@??_C@_04I 
FFI@Farm?$AA@??_C@_07OCKK@Fantasy?$AA@??_C@_08JEHB@Exercise?$AA@? 
?_C@_07NCAH@Erotica?$AA@??_C@_0L@JBPC@Elementary?$AA@??_C@_05CGP 

40 O@Drama?$AA@??_C@_0M@NOLC@Documentary?$AA@??_C@_05FKAK@Dance?$ 
AA@??_C@_05HMON@Crime?$AA@??_C@_0N@KIIC@Contemporaiy?$AA@??_C@ 
_08JELE@Consumer?$AA@??_C@_07DLE@Concert?$AA@??_C@_0L@LGND@Com 
mentary?$AA@??_C@_06IGJL@Comedy?$AA@??_C@_06CAIJ@Combat?$AA@??_C 
@_07LGJO@College?$AA@??_C@_09JFNA@Classical?$AA@??_C@_08FMGD@Busin 

45 ess?$AA@??_C@_08FKAB@Bulletin?$AA@??_C@_0L@PKKG@Basketball?$AA@??_ 
C@_08GPNH@Baseball?$AA@??_C@_06IPOB@Awards?$AA@??_C@_0L@CFFG@A 
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utomobile?$AA@??_C@_09IADM@Anthology?$AA@??_C@_08HEBO@Animated?$AA 

@??_C@_0O@PINI@Advertisement?$AA@??_C@_06NMFG@Action?$AA@??_C@_05 

FGEM@OTHER?$AA@??_C@_06BIM@Sports?$AA@??_C@_09IEGM@Religious?$A 

A@^_C@_04KJCI@News?$AA@??_C@_05CHKH@Movie?$AA@??_C@_0O@JFFK 

@Entertainment?$AA@??_C@_09HOLD@Education?$AA@??_C@_06HOCB@TV?9MA 

95^$AA@^_C@_06BJIF@TV?914?5?$AA@??_C@_06KCEN@TV?9PG?5?$AA@??_C 

@ 04HI@TV?9G?$AA@??_C@_06HFLA@TV?9Y7?5?$AA@??_C@_04CMC@TV?9Y? 

$AA@?? _C@_04COF@None?$AA@??_C@_09HKPO@Not?5Rated?$AA@??_C@_01FI 

AI@X^SAA@??_C@_05DMNK@NC?917?$AA@??_C@_01FJJO@R?$AA@??_C@_05 

MAGO@PG?913?$AA@??_C@_02DACJ@PG?SAA@??_C@_01PACF@G?$AA@??_C 

@_03PHGM@N? 1 A?$ AA@_flagmask_tvpgRatings_mpaaRatings_MinLength_MaxLength 
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Appendix C 

Copyright © 2000 I LOVE TV INC. (868970 Ontario Inc.) 
All rights reserved unless otherwise noted 

5 

Cold Fusion 
Showtime 

10 File: AddCommentcfm 

<cfif ParameterExists(Edit)> 

<cfif Len(Trim(NewComment)) GT 0> 

15 

<! — Get the max of EventID T s — > 
<cfquery name- 'GetMax" 
datasource="VBIContent" 
usemame-'caption" 
20 password- f trewq55"> 

select Max(Eventid)as maxid from ctlfile 
</cfquery> 



25 



<cfset newEvent = ! #incrementValue(GetMax.maxid)# , > 
<! — Insert a new record and pass EventID — > 



<cfquery name="AddEvent" 

datasource="VBIContent" 
3 0 username- 'caption" 

password- 'trewq55"> 

Insert into ctlfile 

(Eventid, 

Seconds, 
35 Type, 

Clipsource, 

Comment 

) 

40 Values 

(#newEvent#, 
#LTime#, 

•c, 

'#Clipsrc#\ 
45 '#NewComment#' 
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) 

</cfquery> 

</cfif> 

5 <! — Close Window — > 

<! — <body onLoad="window.close();"> — > 
<cfoutput> 

<cflocation url=^/thankyouxfm?LTime=#U^ 

10 </cfoutput> 
</cfif> 



<font face- 'Arial" size="-r>Type in your comment, then press "Save"<br> 
15 < ! — Use LTime for current time — > 

<form action= M AddCommentcftn?Edit=Yes" method= M POST" 

onSubmit-' , setTimeout( , window.close() , ? 2000); n > 

<cfoutput> 

<input type="Hidden" name="LTime" value="#LTime# n > 
20 <cfif ParameterExists(EventID)> 

<input type="Hidden" name="EventID" value="#EventID#"> 
</cfif> 

<input type="Hidden ?t name="DS" value="#DS#"> 
<input type="Hidden M name="Clipsrc" value="#Clipsrc#"> 
25 </cfoutput> 
<center> 

<textarea name= n NewComment" cols=M0" rows="2 M wrap="VIRTUAL n ></textarea> 
<input type-' Submit" value- 'Save"></center> 
</font> 
30 </form> 
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File: banner2.cfm 

<html> 
5 <head> 

<title></title> 
</head> 

<SCRIPT LANGUAGE = M JavaScript"> 
<!- hide this script from old browsers 
10 LinkWmdow="status^o 

es ? resizable=yes 5 HEIGHT=400 ? WIDTH=600"; 

//--> 
</script> 

<body bgcolor="#5B94Dr> 
1 5 <CFIF ParameterExists(imgsrc) AND ParameterExists(msg2)> 

<cfoutput> 

<A href^"http://#msg2#" target="NetWin n 
onClick=Vindow.open(^ , NetWin^LinkWindow); M ><IMG align="left M alt="#caption#" 
border=0 src- T http://#imgsrc#"></a> 
20 </cfoutput> 

<CFELSE> 

  

</CFIF> 

25 </body> 
</html> 
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File: buttonbar2.cfm 

<html> 
5 <head> 

<title></title> 
</head> 

<SCRIPT LANGUAGE = "JavaScript"> 
1 0 name = 'my mainwindow' ; 
CaptionWin=null; 

<!-- hide this script from old browsers 
LinkWindow= M statos=no ^oolbar^ 
s ) resizable=yes,HEIGHT=480,WIDTH=640"; 
15 SelectWindow="status^o,toolbai=yes,directories^^ 
es ? resizable=yes,HEIGHT=400 ? WIDTH=600"; 
function WinOpen() 
{ 

if (CaptionWin == null) 
20 { 

CaptionWin = window.open("caption2.cfm" ? "CaptionWin", 
f, menubaI= : 0 ? toolbar=0,resizeable=0,width=320 ? height=360 ,, ); 
CaptionWin.focus() ; 

document forms[0] .isWinOpen. value- 'true" ; 
25 return false; 

} 

else 

{ 

if (CaptionWinxlosed = true) 
30 { 

CaptionWin = window.open("caption2xfm", "CaptionWin", 
"menubar=0 ? toolbar=0 ? resizeable=0 ? width=320 > height=360"); 
CaptionWin.focus(); 

document.forms[0].isWinOpen.value="true"; 
35 return false; 

} 

} 

} 

//function isWinOpen() 

40 //{ 



// if (CaptionWin == null) 

// { 

// WinOpen(); 
// CaptionWin.hide(); 
45 // return false; 

// } 
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// else 

// { 



// if(CaptionWin.closed==true) 

// { 
5 // return false; 

// } 

// else 

// { 

// return true; 

10 // } 



// } 
//} 

//--> 
</script> 

15 

<! — buttonbar in frame name="ButtonWin" — > 

<body bgcolor="#8FBC8F" text="Black" link="Blue" vlink="Blue" alink="#FF4500"> 
<!— <cfif Channel is "> 
20 onLoad='Vindow.open(\7Selector/indexxfm\'SelectWm\LinkWindow);" 

</cfi£> — > 

<table width='100%' border="0" cellspacing= ,, 0" cellpadding="0" bgcolor="#8FBC8F"> 
<tr> 

<td width="10" rowspan="3" 
25 background=" . ./images/site/transparent.gif '></td> 

<td height="3" colspan="2" background="../images/site/transparent.gif '></td> 
<td rowspan="3" align="RIGHT" vaUgn="TOP"><img 
src="/IMAGES/site/buttonbar_curve.jpg" border=0 alt="" align="top" width=14 
height=15></td> 
30 </tr> 
<tr> 

<td><font face="Arial" size="-l"> 

<a href="../Selector/channels.cfm" target="SelectWin" 
onClick='Vmdow.open(^ , SelectWm^LinkWindow); , '>Channels</a> 
35 </td><td> 

<font face="Arial" size="-l"> 
<a 

href^^./Lirfc/indexx^rn?ClipSrc=<cfoutput>#Clipsrc#&DS=#DS#</cfoutpu1>" 
target="OutLinkWin" onClick='Vmdow.open('VOutLinkWm^LirikWindow);">Links</a> 
40 </td> 

</tr> 
<trxtd> 

<font face="Ariar' size="-l"> 
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<font face="Arial M size="-l"> <a 
hre^ ,r ../Selector/selections.cfin n target="SelectWin" 
onClick=Vindow.open(^'Selec^^ 

</td><td> 

5 <font face^'Arial" size= n -l M > 

<cfif NOT Channel is "> 

<a 

href^Vchat/ind^ target="OutLinkWin" 
onClick= t Vindow.open( f \ , OutLinkWin\LinkWindow);' r >Ch^ 
10 </cfi£> 

</td> 

</tr> 

<! — <tr> 

<td colspan="2"> 
15 <font face-" Anal" size="-l "> 

<cfif NOT Channel is "> 

<a 

href^ M caption2xfim?Channel=<cfoutput>#Channel#</cfoutput> ,f target="CaptionWin ft 
onClick= n return(WinOpen()) M >CC</a> 
20 </cfif> 

</td> 

</tr> — > 

<tr><td height="3" colspan- *4" background="../images/site/transparent.gif ! > 
</td></tr> 

25 

<tr><td colspan- '4"> 

<table width= M 100%" bordei="0" cellspacing= n 0" cellpadding= ,, 2 n > 
<form name-SearchForm' action="../Links/search.cfin" target="OutLinkWin" 
onSubmit="window.open("/OutLinkWin^LinkWindow); 
30 setTimeout( , document.SearchForm.reset() , ? 2000); M method= M POST ,r > 
<input type="Hidden n name- 'isWinOpen" value= mf > 
<tr bgcolor= M #8FBC8F n ><td align-"CENTER"> 
<font face= 1, Arial ,f size="l n > 

Find <input type-"Text M name="SrchFor M size="15 M maxlength="50''x/fcnt> 
35 <center><font size- T'xinput type- 'Submit" 

value="Search! "x/fcntx/center> 
</td></tr> 

</form> 
</table> 

40 

</td></tr> 
</table> 
</body> 
</html> 

45 
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File: caption2.cfm 

<html> 
<head> 

5 <title>Closed Captioning</title> 
<script language- ! JavaScript"> 
function SetUnLoad() 

{ 

opener.document.forms[0].isWinOpen.value= M false"; 
10 window. close(); 

} 

</script> 
</head> 

<body bgcolor="ghostwhite"> 
15 <i — sponsor in frame name="SponsorWin" — > 

<table width="100%" border="0 n cellspacing="0" cellpadding="0 M bgcolor= M ghostwhite n > 
<tr> 

<form name= M cc M > 
<td align='center'> 

20 <table width="95%" border= H 0*' cellspacing= M 0" cellpadding= r, 0 M ><tr> 

<td> 

<CFIF ParameterExists(caption)> 

<cfoutput> 

<fontsize="-l"> 
25 <textarea name-Caption' cols- 40' rows- 1 0' 

wrap= , 'VIRTUAL ,r >#Replace(caption; , ||^ t, ^ tt ALL T, )#</textarea> 

</font> 

</cfoutput> 

</cfif> 
30 </td> 

</tr> 

</table> 

</td> 
</TR> 
35 </form> 
</TABLE> 
</body> 
</html> 
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File: comment2.cfm 

<html> 
5 <head> 

<title></title> 
</head> 

<SCRIPT LANGUAGE = " JavaScript"> 
<!- hide this script from old browsers 
1 0 CommWin=null; 

LinkWindow= n staiiis=no^^ 
es > resizable=yes ? HEIGHT=400 ? WIDTH=600 M ; 
Small Wmdow- 1 s1atus=no,toolbai=yes 
o,resizable=yes ? HEIGHT=200 ? WIDTH=400 M ; 



15 



function WinOpen() 



20 



var ltime==parent.DataWin.document.Comments.ltime.value; 
var ltime_l=Math.floor(ltime/1000); 

var clip=parent.DataWin.document.Comments.Clipsrc.value; 

var ds=parent.DataWin.document,Comments.DS.value; 

varWhat_url= t, addcomment.cfim?LTime= ,t +ltime_l+"&ds="+ds+ M &Clipsrc 

if (CommWin = null) 



25 



CommWin - window.open(What_url, "CommWin* 1 , SmallWindow); 
CommWin.focusQ; 



} 



else 



30 



if (CommWin.closed = true) 

CommWin = window.open(What_url ? "CommWin", SmallWindow); 
CommWin.focusQ; 



35 



function SetElapseTime() 



40 { 



var ltime=parent.DataWin.document.Comments.ltime. value; 
var clip=parent.DataWin.document.Comments.Clipsrc.value; 
var ds=parent.DataWin.document.Comments.DS.value; 
locationliref="addco^ 



45 } 



//--> 
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</scripi> 

<body bgcoloi="#F5F5F5" link="Blue" text="Black" vlink="#5B94Dl" alink="#FF4500"> 
<font face="Arial" size="-2"> 

  Comments:         
5 <!— 

<CFIF ParameterExists(LTime)> 

<a href="addcomment.cfm?LTime=#LTime#" target="CommWin" 

onClick='Vindow.open('\'ConrniWin',SmallWindow);SetElapseTime();"> 

<CFELSE> 

10 <a href="addcomment.cfin?LTime=0" target= ,t CommWin" 

onClick= , Vindow.open('VCommWin^SmallWindow);SetElapseTime();"> 

</CFIF> 

— > 

<ahref="#" onClick=*'WinOpen()"> 
15 Add Your Comment</a><br> 
</font> 

<font face="Arial" size="l"> 

<CFIF ParameterExists(msg)> 

<cfoutput> 
20 #Replace(msg,"|r , , m, ,"ALL")# 

</cfoutput> 

</cfif> 

</font> 

</body> 
25 </html> 



File: community.cfm 

<body bgcolor="ivory M > 

community in frame name- 'Community Win" 
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File: data2.cfm 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN n > 

5 

<html> 
<head> 

<title>Untitled</title> 
</head> 
10 <body> 

<form name-' Sponsor" action="sponsor2.cfim" method-'post" enctype="application/x- 
www-form-urlencoded" target="SponsorWin"> 
<input type="Hidden" name="imgsrc" value=""> 
<input type- 'Hidden" name- 'n^" value- '"> 
1 5 <input type- 'Hidden" name- Caption" value- '"> 
<input type- 'Hidden" name="Net" value=""> 
<input type- 'Hidden" name- 'Channel" value=""> 
</FORM> 

20 <form name- 'Links" action="linklist2.cfm M method-'post" enctype- 'application/x-www- 
form-urlencoded" target="LinkListWin"> 
<input type- 'Hidden" name- 'msg" value=""> 
</FORM> 

25 <form name="Ad" action- 'banner2.cfm" method="post" enctype="application/x-www-form- 

urlencoded" target="BannerWin"> 

<input type- 'Hidden" name="imgsrc" value=""> 

<input type- 'Hidden" name- 'msg2" value- m > 

<input type- 'Hidden" name- 'caption" value- '"> 
30 </FORM> 

<form name="Caption" action="caption2.cfm" method="post" enctype- 'application/x-www- 
form-urlencoded" target="CaptionWin"> 
<input type- 'Hidden" name- 'caption" value=""> 
35 </FORM> 

<form name-'Comments" action- r comment2>cfm" method-'post" enctype="application/x- 
www-fomi-urlencoded" target="CommentWin"> 
<input type="Hidden" name- 'ltime" value="0"> 
40 <input type="Hidden" name-'msg" value- '"> 
<CFOUTPUT> 

<input type="Hidden" name="Clipsrc" value="#Clipsrc#"> 
<input type="Hidden" name="DS" value="#ds#"> 
</CFOUTPUT> 
45 </FORM> 
</body> 
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</html> 
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File: linklist2.cfm 

<html> 
5 <head> 

<title></title> 

<SCRIPT LANGUAGE = " JavaScript"> 
<!-- hide this script from old browsers 
LinkWindow-'stalxis^o^oolbai^yes^d^^ 
1 0 es,resizable=yes,HEIGHT=400 ? WIDTH=600 M ; 
//--> 
</script> 
</head> 

<body bgcoloi="#F4A460" link= H Blue" text="Black" vlink="#5B94Dl" alink- M #FF4500 M > 
1 5 <font face=" Arial" size=" 1 "> 
  Current Links: 
<br> 
<b> 

<CFIF ParameterExists(msg)> 
20 <cfoutput> 

#Replace(msg ? M ||" ? m, ? ,! ALL")# 

</cfoutput> 

</cfif> 

</font> 
25 </body> 

</html> 
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File: main2.cfm 

<cfparam name= M Channer defaul1^ n "> 
5 <cfyaram name="Net" default= m, > 
<cQ)aram name-'Clipsrc" default=""> 
<cfparam name= 1, size ,, default=""> 
<cfyaram name- 'DS" default= n Adserver"> 

1 0 <script language^" JavaScript"> 
<!-- 

<! — if (document, images) — > 

self.name = 'showtime'; 
//--> 
15 </script> 

<!- frames -> 

<frameset rows- f *,0,62 M framespacing- *0" border="no" frameborder= n O" marginwidth="0" 
marginheight="0 M bordercolor="white"> 
<frameset cols="169,* n > 
20 <frameset rows="132,90,* M > 

<frame name- 'SponsorWin" 
src= n sponsor2xfm?Chatmel=<cfou^^ 

DS#</cfoutput>" framespacing="O n border="0" framebordei^'O" marginwidth= n 0" 
marginheight="0" bordercolor="white" scrolling- 'No" noresize> 
25 <frame name="ButtonWin" 

src="buttonbar2xfm?Cha^ 

-#Size#&DS=#DS#</cfoutput>" framespacing="0" border= n 0" frameborder= n 0" 
marginwidth="0" marginheight="0" bordercolor= ,1 white" scrolling- 'no" frameborder="no"> 
<frame name- f LinkListWin n 
30 src="linklist2xfm?<cfoutpu^ framespacing="0" 
bordei="0" frameborder="0" marginwidth="0" marginheight^'O" bordercolor="white" 
scrolling- W noresize frameborder="no"> 
</frameset> 

<frame name= n Stream Win" 
35 src="stream2xfm?Channel=<cfc^ 

Size#&DS=#DS#</cfoutput>" framespacing="0" border= n 0" frameborder="0" 
marginwidth- '0" marginheight=="0" bordercolor="white" scrolling- 'no " framebordei="no"> 
</frameset> 
<frame name- 'DataWin" 
40 src=Mata2xfm?Channel=<cfoutp^^ 

e#&DS=#DS#</cfoutput>" framespacing= n O M border="0" frameborder="0" marginwidth-"0" 
marginheight="0" bordercolor="white n scrolling- W frameborder== M no"> 
<frameset cols="*,468"> 

<frame name= n CommentWin" 
45 src=' t comment2xfin?<cfoutput>Clipsrc=#Clipsrc#&DS==#DS#</cfoutput> M 
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framespacing="0" border="0" frameborder="0" marginwidth= M O ft marginheight= n O" 
bordercolor="white" scrolling= n no" noresize £rameborder= M no"> 

<frame name= n BannerWin ,r 
src="banner2xfm?<cfoutput>C^ framespacing= f, 0" 
5 border= M 0" frameborder="0" marginwidth="O n marginheight="0" bordercolor="white" 
scrolling- 'no" noresize frameborder="no"> 
</frameset> 



</frameset> 
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File: main3.cfm 

<cfparam name- 'Channel" default= m '> 
5 <cfyaram name= M Net M defaults" "> 
<cfparam name="Clipsrc" default- m > 
<cfyaram name- 'size" default= mi > 
<cQ?aram name- *DS" defaults" Adserver"> 

1 0 <script language-' JavaScript"> 
<!-- 

<! — if (document images) — > 

self.name = 'showtime'; 
//-> 
1 5 </script> 

<!— frames --> 

<framesetrows="*,62" framespacing="0" border="0" frameborder="0 M marginwidth="0" 
marginheight-'O" bordercolor="white"> 
<frameset cols="169,*,0"> 
20 <frameset rows=" 132,130 *"> 

<frame name= n SponsorWin" 
src= n sponsor2xfm?Chaimel=<cfoutpu^ 

DS#</cfoutput>" framespacing="0" border="0" frameborder= M 0" marginwidth="0" 
marginheight="0" bordercolor="white" scrolling- 'No" noresize> 
25 <frame name="ButtonWin" 

src-'buttonbar2xfm?Channel=<cfoutput^^ 

=#Size#&DS=#DS#</cfoutput>" framespacing="0" border="0" frameborder="0" 
marginwidth- *0" marginheight-'O" bordercolor="white M scrolling- W frameborder="no"> 
<frame name- 'LinkListWin" 
30 src=''linklist2xfim?<cfoutput^ framespacing="0" 
border="0" frameborder="0" marginwidth="0" marginheight="0" bordercolor="white" 
scrolling="no" noresize frameborder="no"> 
</frameset> 
<frame name= M Stream Win" 
3 5 src="stream3 xfm?Chaimel=<cfoutput>#Chan^^^ 

Size#&DS-#DS#</cfoutput>" framespacing="0" border="0" frameborder="0" 
marginwidth- '0" marginheight="0" bordercolor="white" scrolling- 'no" frameborder="no"> 

<frame name="DataWin" 
src="data2xfm?Channel-<cfoutput>^ 
40 e#&DS=#DS#</cfoutput>" framespacing="0" bordei="0" framebordei="0" marginwidth="0" 
marginheight="0" bordercoloi="white" scrolling- W frameborder='W'> 
</frameset> 

<frameset cols="*,468"> 
< frame name="CommentWin" 
45 src= rr comment2.cfin?<cfoutput>Clipsrc=#Clipsrc#&DS=#DS#</cfoutput> n 
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framespacing= n O" border= ,1 0" framebordei="0" marginwidth= M 0" marginheight="0 M 
bordercolor="white" scrolling- W noresize frameborder="no"> 

<frame name- f BannerWin M 
src="baimer2xfe?<cfoxitput>Clipsrc=#Clipsrc#&DS=^DS#</cfoutput> n framespacing="0 M 
5 border="0" &ameborder="0" marginwidth="0" marginheight="O n bordercolor="white" 
scrolling- 'no M noresize frameborder="no"> 

</frameset> 
</frameset> 

10 
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File: main4.cfm 

<cfyaram name="Channel" defaults" "> 
5 <cfyaramname="Net"default= m, > 
<cfparam name="Clipsrc" default=""> 
<ciparam name-'size" default=""> 
<cfparam name="DS" default="Adserver"> 

10 <script language-' JavaScript"> 
<!-- 

<! — if (documentimages) — > 

self.name = 'showtime'; 
//-> 
15 </script> 

<!— frames — > 

<frameset rows="*,62" framespacing="0" bordei="0" frameborder="0" marginwidth="0" 
margmheight="0 " bordercolor="white"> 
<frameset cols="169,*,0"> 
20 <frameset rows="132,130,*"> 

<frame name="SponsorWin" 
src="sponsor2xfm?Channel=<cfoutput>#Channel#&Net^Net#&ClipSrc^Clipsrc#&DS^ 

DS#</cfoutput>" framespacing="0" border="0" frameborder="0" marginwidth="0" 
marginheight="0" bordercolor="white" scrolling="No" noresize> 
25 <frame name="ButtonWin" 

src="buttonbar2xfm?Channel=<cfoutput>#Channel#&Net=#Net#&Clipsrc=#Clipsrc#&Size 

=#Size#&DS=#DS#</cfoutput>" framespacing="0" border="0" frameborder="0" 
marginwidth="0" marginheight="0" bordercoloi-"white" scrolling="no" frameborder="no"> 
<frame name="LinkListWin" 
30 S rc="liiiklist2xfin?<cfoutput>Clipsrc^ 

bordei="0" frameborder="0" marginwidth="0" marginheight="0" bordercolor="white" 
scrolling="no" noresize frameborder="no"> 
</frameset> 
<frame name="StreamWin" 
35 S rc=' , stream4xfm?Chaimel=<cfoutput>#Channel#&Net^Netf&Clipsrc=#Clipsrc#&Size^ 

Size#&DS=#DS#</cfoutput>" framespacing="0" border="0" frameborder="0" 
marginwid1h="0" marginheight="0" bordercolor="white" scrolling="no" frameborder="no"> 

<frame name-'DataWin" 
src="data2xfm?Channel=<cfoutput>#Channel#&Net==#Net#&Clipsrc==#Clipsrc#&Size=#Siz 

40 e#&DS=#DS#</cfoutput>" framespacing="0" bordei="0" framebordei="0" marginwidtb="0" 
marginheight="0" bordercolor="white" scrolling="no" framebordei="no"> 
</frameset> 

<frameset cols="*,468"> 
<frame name- 'ConimentWin" 
45 src="comment2.cfrn?<cfoutput>Clipsrc=#Clipsrc#&DS=#DS#</cfoutput>" 
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framespacing="O n border="0" frameborder="0" marginwidth="0" marginheight="0" 
bordercolor^'white' 1 scrolling- W noresize frameborder="no"> 

<frame name= ,, BannerWin r, 
src- ,, bamer2xfm?<cfoutput>Clipsrc^Clipsrc#&DS^DS#</cfoutput>" framespacing="0" 
5 border= !, 0" frameborder= , '0 M marginwidth="O n marginheight- M 0" bordercolor="white" 
scrolling- T no" noresize frameborder="no M > 

</frameset> 
</frameset> 

10 
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File: search.cfm 

<html> 
5 <head> 

<title>Search</title> 
</head> 

<SCRIPT LANGUAGE="JavaScript"> 
<!-- 

1 0 window.name="OutLinkWin" ; 
//--> 

</SCRIPT> 

<body onLoad- 'if (window.focus) self.focus(); else alert(Tage Loaded');"> 

15 



search Window 

20 

<form> 

<input type- 'Button" value- f Close" onClick="window.close();"> 
</form> 



25 </body> 
</html> 



File: selector.cfin 
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File: sponsor2.cfm 

<cfquery name="GetNet" datasource='TV n > 
5 Select* from NetStns 
Where Call = ! #Net#* 
</cfquery> 

<cfquery name- 'GetChannel" datasource-TV"> 
10 Select* fromNetStns 

Where Call = '#Channel# f 
</cfquery> 

<html> 
15 <head> 

<title>sponsor</title> 

</head> 

<SCRIPT LANGUAGE = "JavaScript^ 
20 <!- hide this script from old browsers 
LinkWindow="status=no,toolbar^ 
es,resizable=yes,HEIGHT=400,WIDTH=600"; 

//--> 

function setSponsor(msgl) 

25 { 

document. writeln(msg 1 ); 

} 

</script> 

30 <bodybgcolor="#228B22"> 

<!— sponsor in frame name-'SponsorWin" — > 

<table width="169" border="0" cellspacing="0" cellpadding="0" bgcolor="#228B22"> 
<tr> 

<td wid1h="30" rowspan="4" bgcolor="#8FBC8F"> 
35 <IMG align="middle" alt="" border=0 height=132 src=7images/site/sponsor_curve.gif * 
width=30></a> 
</TD> 

<td height="3" bgcolor="#228b22" background="transparent.gif > 
40 </td> 

</TR> 

<tr> 

<td> 

45 <table width="120" border="0" cellspacing="0" cellpadding="0 M > 

<tr> 
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<td width="32" height="32"> 
<cfif GetNetrecordcount gt 0> 
<cfoutput> 

<a href="http://#GetNet.LinkURL#" target="NetWin" 
onClick=Vindow.open(^^etWin\LinkWindow); ,, ><IMGalign= ,, middle" 
alt="#GetNet.LinkText#" boniei=0 height=32 src="#getNet.ImageLoc#" width=32></a> 

</cfoutput> 

<cfelse> 

  

</cfi£> 

</td> 

<td> 

<a href="http://ilovetv.ca" target="new"><IMG align="middle" alt="" border=0 
height=32 src=7images/ads/network/love.jpg" width=32></a> 
</td> 

<td wid1ii="32" height="32"> 
<cfif GetChannel.recordcount GT 0> 
<cfoutput> 

<a href="http://#GetChannel.LinkURL#" target="NetWin" 
onClick="window.open('VNetWin',LinkWindow); , '><IMG align="middle" 
alt="#GetChannel.LinkText#" border=0 height=32 src="#getChannel.ImageLoc#" 
width=32></a> 

</cfoutput> 

<cfelse> 

  

</cfif> 

</td> 

</tr> 

</table> 

</td> 

</TR> 

<tr> 

<td width= ,, 120" height="90"> 

<CFIF ParameterExists(imgsrc) AND ParameterExists(msg2)> 
<cfoutput> 

<A href="http://#msg2#" target="NetWin" 
onClick= ,l window.open(",'NetWin , ,LinkWindow);"xIMG align="left" alt= M #caption#" 
border=0 src="http://#imgsrc#"></a> 

</cfoutput> 

<CFELSE> 

  

</CFIF> 

</TD> 

</tr> 

<tr> 
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<td height="3" bgcolor="#228b22" background="transparent.gif '> 

</td> 

</TR> 

</TABLE> 

</body> 

</html» 



-182- 



10 



File: stream2.cfin 

<!DOCTYPE HTML PUBLIC n -//W3C//DTD HTML 4.0 Transitional//EN"> 

<html> 
<head> 

<title>Untitled</title> 
</head> 



<cfif Trim(Channel) is "or channel is ' % > 

<body bgcolor="#228B22" leftmargin=3 topmargin=3> 

<!„- 

<a href^ H http://home.sol.no/-gguimers/NetBird.html">Net Bird</a> 

15 — > 

<br><br><br> 

<table width="80%" align="CENTER" valign- 'MIDDLE" bgcolor= M #F4A460 n > 
<tr><td> 

<font face="Arial" size="+l" color="Blue">Select a program to view.<br><br> 
20 Selections button presents archived shows for this demo.<br><br> 

Channels button presents a channel selector mock-up.<br><br> 
Links button shows all the links from the current program.<br><br> 
Almost everything on the screen is a live link to the internet. 

</td> 
25 </tr> 

</table> 
  <br> 



30 </center> 
</font> 

</body> 
</html> 
35 <cfelse> 



<script language- 'javascript'^ 
40 <!-- 

var count = 0; 
var doPolling; 

var Ver4 = parseInt(navigator.app Version) >= 4; 
varNav4 = ((navigator.appName = "Netscape") && Ver4); 
45 var IE4 = ((navigator.userAgent.indexOf("MSIE") != -1) && Ver4); 
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var Messages = n ; 
varmsg-'; 
var Current_time=0; 
//caption 
5 var c_msg="; 
var c_count=0; 
//link 

var l_count=0; 
var ljnsg="; 
10 //comment 

var m_count=0; 
var m_msg- T ; 

var isAppletReady=false; 
15 CaptionWin=null; 

<CFOUTPUT> 

varNet='#Net#'; 

var ChanneH#Channel#'; 

</CFOUTPUT> 
20 // Save window content dimensions to work around resize 

// behaviour in WIN32 versions of Navigator 4. 

if(Nav4) 

{ 

var orig Width = window.innerWidth; 
25 var origheight = window.innerHeight; 

} 

function WinOpen() 

{ 

30 if (CaptionWin = null) 

{ 

CaptionWin = window.open("caption2.cfm", "CaptionWin", 
"menubar=0 5 toolbar=0 ? resizeable=0,width=320 ? height=180"); 
Caption Win.focus(); 
35 return false; 

} 

else 

{ 

if (CaptionWin.closed == true) 
40 { 

CaptionWin = window.open("caption2.cfm", "CaptionWin", 
"menubar=0,toolbar=0,resizeable=0,width=320,height=360"); 
Caption Win.focus() ; 
return false; 

45 } 

} 
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// Invoked by <body> tag's onResize event handler to refresh the page for 
// Navigator 4 to assist in getting positioned elements back in place, 
function RestorePage() 
5 { 

if(Nav4) 

if (origWidth != window.innerWidth || origHeight != window.innerHeight) 
history.go(O); 

10 } 

} 



function SendChatMessage(Author, Type, Message) 
15 { 

document.applets[0].SendMessage(Author, Type, Message); 

} 

function SendElapsedTimeToApplet(Time) 
20 { 

//vartx=Time/1000; 

//var txl=Math.floor(tx); 

document, applets [0] . SendElapsedTime(Time) ; 

} 

25 

function HandleSessionMessageEx(Author, Type, Message) 
{ 

if(IE4) 

30 { 

document.forms[0].WhatPosition.value=Message; 

} 

else if (Nav4) 

{ 

3 5 document, forms [0] . WhatPosition.value=Message; 

} 

} 



40 



45 



function HandleAppletLoad(Message) 
{ 

isAppletReady=true; 

} 

function HandleElapsedTime(Message) 
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if(IE4) 

{ 

document.forms[0].WhatPosition.value=Message; 

5 } 

else if (Nav4) 

{ 

docurnent.forms[0].WhatPosition.value=Message; 
10 } 

} 

function HandleSponsor(Messagel,Message2,Message3) 

{ 

1 5 //Handle the images in the SponsorWin frame 

parentDataWin.documentSponsor.imgsrc.value = Messagel; 

parentDataWin.document.Sponsor.msg2.value = Message2; 

parent.DataWin.document. Sponsor, caption, value = Message3; 

parent.DataWin.document.Sponsor.Net. value = Net; 
20 parent DataWin.document. Sponsor.Channel. value = Channel; 

HandleLinks(Message2,Message3 "); 

parent.DataWin.document.Sponsor.submit(); 

25 } 

function HandleLinks(Messagel,Message2, Message3) 

{ 

var Type=Message3; 
if(Type = "old") 
30 { 

l_msg="<a href= , http:// M +Messagel+ rn target= f NetWin 1 
onCHck=\Vindowx)p^^^ 

} 

else 
35 { 

l_msg="<a href^'http://"+Messagel+'" target='NetWin' 
onClick=Y'window.open(^TCetWi^LinkWm^^ 

} 

40 l_count++; 

if(l_count >5) 
{ 

varlast=l_msg.lastIndexOf( M ||"); 
45 l_msg = l_msg.substring(0,last); 

} 
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parent.DataWin.documentXinks.msg.value = l_msg; 
parentDataWin.document.Links.submit(); 



} 

function HandleAd(Messagel,Message2, Message3) 
{ 

//Handle the images in the SponsorWin frame 
1 0 parentDataWin.document Ad.imgsrc. value = Message 1 ; 

parent.DataWin.document.Ad.msg2.value = Message2; 
parentDataWin.document Ad.caption. value = Message3; 
HandleLinks(Message2,Message3,""); 
parent.DataWin,document.Ad.submit(); 

15 } 

function HandleCaption(msg) 

{ 

if(msg !=") 

{ 

20 if(c_count >5) 

{ 

var last=c_msg.lastIndexOf("|r); 
cmsg = c_msg.substring(0,last); 
c_msg=msg+"\r\n| | "+c_msg; 

25 } 

else 

{ 

c_msg=msg+"\r\n| | "+c_msg; 

} 

30 //Handle the images in the SponsorWin frame 

if(CaptionWin = null || CaptionWin.closed = true) 

{ 
} 

35 else 

{ 

parent.DataWin.document.Caption.caption.value = c_msg; 
parent.DataWin.document.Caption.submit(); 

} 

40 c_count++; 
} 

} 



45 function HandleComments(msg) 

{ 
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20 



25 



if(msg !=") 

{ 

if(m_count >5) 

{ 



} 

else 

10 { 



var last=m_msg.lastIndexOf( 1, || M ); 
m_msg = m_msg.substring(0 ? last); 
m_msg=msg+ n <BR>| | "+m_msg; 



m_msg=msg+"<BR>| | "+m_msg; 

} 

parentDataWin.document.Comments.msg.value = m_msg; 
parent.DataWin.document.Comments.submit(); 
15 m_count++; 

} 



function HandleSessionErrorEx(ErrNumber ? ErrDescription) 

{ 

alert(ErrDescription); 

} 



function SendElapsedTime() 

{ 

if(document. video 1 .GetPlayState()= 3) 
30 { 

// Make sure that the applet has been loaded 
if(isAppletReady) 

{ 

var ElpTime=document. video 1 .GetPositionO; 
35 if(ElpTime != ") 

{ 

SendElapsedTimeToApplet(ElpTime); 
parent.DataWin.document.Comments.ltime. value = ElpTime; 

} 

40 polling(); 

} 

else 

{ 

alert("The Applet on your browser has not been started. Please refresh 

45 your page"); 

stopPolling(); 
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10 



15 



20 



25 



30 



35 



} 

else 

{ 

doPolling = setTimeout("SendElapsedTime()",500); 
} 



function stopPolling() 

clearTimeout(doPolling) 
function polling() 

doPolling - setTimeout( M SendElapsedTime() n ,1000); 



'/--> 

</script> 



<body bgcolor="#228B22" leftmargin=3 topmargin=3> 

<applet id="ChatApplet" width-" 1" height- 1 '!" code="ChatClientclass" 
codebase-"http:^lanche.tcn.net:8090/ M VIEWASTEXT mayscript> 



<param name= 
<param name- 
<param name- 
<param name- 
<param name- 
<param name- 
<param name- 
<param name- 
<param name- 
<param name- 
<param name- 



MessageHandler" value="HandleSessionMessageEx"> 
ElapsedTimeMessageHandler" value- 'HandleElapsedTime"> 
ErrorHandler" value-"HandleSessionErrorEx"> 
SponsorHandler" value= H HandleSponsor n > 
LinksHandler" value="HandleLinks"> 
CaptionHandler" value="HandleCaption"> 
AdHandler" value="HandleAd"> 
CommentsHandler" value- 'HandleComments'^ 
CaptionHandler" value-"HandleCaption"> 
ErrorHandler" value= n HandleSessionErrorEx n > 
TimeHandler" value="HandleTime"> 



<param name-'isAppletLoad" value-'HandleAppletLoad"- 



<CFOUTPUT> 
40 <param name="ClipSource" value-"#ClipSrc#"> 
</CFOUTPUT> 
</applet> 

<script Language-" JavaScript"> 
polling(); 
45 </script> 
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<table width="100%" border="0" cellspacing="0" cellpadding="0" align="LEFT" 

valign="TOP"> 

<tr> 

<td align=*'left" valign="top"> 
5 <! — stream in frame name-'streamWin" — > 



<cfparam name="Channel" defaulr=""> 
<cfparamname="Net" default=""> 
<cfparam name="Clipsrc" default=""> 
10 <cfparam name="size" default=""> 



<cfif Sizeis'S'> 

<cfset Width=320> 

<cfset Height=240> 
15 <cfelseifSizeis'L'> 

<cfsetWidth=512> 

<cfsetHeight=384> 

<cfelseif Size is 'X'> 

<cfset Width=240> 
20 <cfsetHeight=180> 
</cfi£> 

<cfif Not Clipsrc is "> 

<cfif ClipSrc is "SunPar3" and Size is "L"> 
25 <cfset cliploc = 

Tittp://www.broadcastxom/business/sun/98par3challenge_102099_100.ram'> 
<cfelseif ClipSrc is "SunPar3" and Size is "S"> 
<cfset cliploc = 

'http://www.broadcastxom/business/siin/98par3challenge_102099_56.ram'> 



30 



<cfelseif ClipSrc is "LiveOOl" and Size is "S"> 

<cfset cliploc = Vmedia/56k/Live001.ram'> 



<cfelseif ClipSrc is "Auction" and Size is "S"> 
35 <cfset cliploc = 7media/56k/auction.ram'> 

<cfelse> 

<cfif Size is 'S'> 

<cfset cliploc = 7media/56k/#Clipsrc#.ram'> 
<cfelseif Size is 'L'> 

40 <cfset cliploc = Vmedia/1 08k/#Clipsrc#.ram'> 

<cfelse> 

<cfset cliploc = Vmedia/#Clipsrc#.ram'> 

</c&f> 

</cfif> 

45 </cfi£> 
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<center> 
<cfoutput> 
<object 
5 ID=videol 

CLASSID= M clsid:CFCDAA03-8BE4-llcf-B84B-0020AFBBCCFA M 

height=#Height# 
width=#Width# 

> 

10 

<param name-' controls" value="ImageWindow"> 

<param NAME="console" VALUE= M Clipl M > 

<paramNAME="autostart" VALUE— 'true"> 

<param NAME="src" VALUE="#Cliploc#"> 
1 5 <embed name=" video 1 " SRO"#Cliploc#" 

type-'audio/x-pn-realaudio-plugin" 

CONSOLE= M Clipl" 

controls-'ImageWindow" 

height=#Height# 
20 width=#Width# 

AUTOSTART=true> 

</object> 

<BR> 
25 <form> 

<input type- 'Button" name- 'PlayButton" value-'Play" 
onClick= M document.applets[0].init();document.videol.DoPlay();polHngO 

<input type="Button" name- 'Pause_Button" value="Pause" 
onClick="document video 1 .DoPause();stopPolling();"> 
30 <input type="Button" name="Stop_Button" value="Stop" 

onClick= n documentvideoLDoStop();stopPolling(); M > 
<!--- <input type- 'Button" name- 'position" value="Position" 
onClick- r, javascript:alert(document. video 1 .GetPosition())"> 

<input type- 'Button" name- 'buffer" value- 'Send" 
35 onClick="SendChatMessage('ripu', 'ChatMessage', document video 1 .GetPosition())"> 

<input type="Text" name=* f WhatPosition"> — > 

</form> 

</cfoutput> 

</center> 

40 </td> 
</tr> 
<tr> 

<td colspan-"2"> 

<font face="Ariar' size="-l"> 

45 <a 

hre^"caption2.cfm?Channel=<cfoutput>#Channel#</cfoutput>" target="CaptionWin" 
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onClick="return(WinOpen())"><img src=7images/site/CC.gif ' width=28 height=23 
border=l alt="Closed Captioning" align="right"></a> 
</td> 
</tr> 
5 </table> 
</body> 
</html> 
</cfif> 
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File: stream3.cftn 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> 

5 <html> 
<head> 

<title>Untitled</title> 
</head> 

1 0 <cfif Trim(Channel) is "or channel is ' '> 

<body bgcolor="#228B22" leftmargin=3 topmargin=3> 

<a href^"http://home.sol.no^ Bird</a> 

15 <br><br><br> 

<table width="80%" align- 'CENTER" valign= M MIDDLE" bgcolor="#F4A460"> 
<tr><td> 

<font face- 'Arial" size- '+1" color="Blue">Select a program to view.<br><br> 
Selections button presents archived shows for this demo.<br><br> 
20 Channels button presents a channel selector mock-up.<br><br> 

Links button shows all the links from the current program.<br><br> 
Almost everything on the screen is a live link to the internet. 

</td> 
</tr> 

25 </table> 

  <br> 



</center> 
30 </font> 

</body> 
</html> 
<cfelse> 

35 

<script language- 'javascript M > 
<!-- 

var count = 0; 
40 var doPolling; 

var Ver4 = parseInt(navigator.app Version) >= 4; 

varNav4 = ((navigator. appName == "Netscape") && Ver4); 

var IE4 = ((navigator.userAgent.indexOf("MSIE") != -1) && Ver4); 



45 var Messages = "; 
var msg- f ; 
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var c_msg- 

var Current_time— 1000; 
Caption Win=null; 
var c_count=0; 

5 // Save window content dimensions to work around resize 
// behaviour in WIN32 versions of Navigator 4. 
if(Nav4) 

{ 

var origWidth = window.innerWidth; 
1 0 var origheight = window.innerHeight; 

} 



// Invoked by <body> tag's onResize event handler to refresh the page for 
1 5 // Navigator 4 to assist in getting positioned elements back in place, 
function RestorePage() 

{ 

if(Nav4) 
{ 

20 if (origWidth != window.innerWidth 1 1 origHeight != window.innerHeight) 

history.go(O); 

} 

} 

25 

function SendChatMessage(Author, Type, Message) 
{ 

document.applets[0].SendMessage(Author, Type, Message); 

} 

30 

function SendElapsedTimeToApplet(Time) 

{ 

document.applets[0] . SendElapsedTime(Time) ; 

} 



function HandleSessionMessageEx( Author, Type, Message) 
{ 

if(IE4) 

40 { 

document.forms[0].WhatPosition.value=Message; 

} 

else if (Nav4) 

{ 

45 document. forms[0] . WhatPosition.value-Message; 



-194- 



} 

} 

5 function HandleElapsedTime(Message) 
{ 

if(IE4) 

{ 

document.forms[0].WhatPosition.value=Message; 

10 } 

else if (Nav4) 

{ 

documentfoims[0].WhatPosition.value=Message; 
15 } 
} 

function HandleSponsor(Messagel ,Message2,Message3) 

{ 

20 //Handle the images in the SponsorWin frame 

parentDataWin.document.Sponsor.imgsrc.value = Messagel; 
parent.DataWin.document.Sponsor.msg2. value = Message2; 
parentDataWin.document.Sponsor.caption. value = Message2; 
parent.DataWin.document. Sponsor. submit() ; 

25 

} 

function HandleLinks(Messagel,Message2, Message3) 
{ 

var Type=Message3; 
30 if(Type=="old") 
{ 

msg=msg+"<a hre£= M1 +Messagel+ m target='NetWin' 
onClick^indow.ope^ 

} 

35 else 

{ 

msg="<a href=™+Messagel+ m target= t NetWin t 
onCHck=^dow.apen^^ 

} 

40 parent.DataWin.documentXinks.msg.value = msg; 

parent.DataWin.document.Links.submit(); 



45 } 

function HandleTime(Message) 
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{ 

Cunent_time=Message; 

} 

5 function Handle Ad(Message 1 ,Message2, Message3 ) 
{ 

//Handle the images in the SponsorWin frame 
parent.DataWin.documentAd.imgsrc.value = Messagel; 
parentDataWin.documentAd.msg2.value = Message2; 
1 0 parent DataWin. document. Ad.caption. value = Message2 ; 

parent DataWin. document. Ad. submit() ; 

} 

function WinOpen() 

{ 

1 5 if (CaptionWin == null) 

{ 

CaptionWin = window.open("caption2.cfm", "CaptionWin", 
"menubar=0,toolbar-0 > resizeable=0 5 width=320 ? height=360"); 
CaptionWin.focus(); 
20 return false; 

} 

else 

{ 

if (CaptionWin.closed == true) 
25 { 

CaptionWin = window.open("caption2.cftn", "CaptionWin", 
"menubar=0,toolbar=0,resizeable=0,width=320,height=360"); 
CaptionWin. focus() ; 
return false; 

30 } 

} 

} 

function HandleCaption(msg) 
35 { 

if(msg !=") 
{ 

if(c_count >5) 

{ 

40 var first=c_msg.indexOf("||"); 

cmsg = c_msg.substring(first+2); 
c_msg=c_msg+"\r\n| | "+msg; 

} 

else 

45 { 

c_msg=c_msg+"\r\n| | "+msg; 
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} 

//Handle the images in the SponsorWin frame 
if(CaptionWin = null || CaptionWin.closed = true) 

{ 

5 

} 

else 

{ 

parent.DataWin.document.Caption.caption.value = cmsg; 
1 o parent.DataWin.document.Caption.submit(); 

} 

c_count++; 

} 



15 



25 



30 



35 



} 



function HandleComments(Message) 

{ 

if(IE4) 
{ 

20 document.forms[0].WhatPosition.value=Message; 

} 

else if (Nav4) 

{ 

document.forms[0].WhatPosition.value=Message; 



} 



function HandleSessionErrorEx(ErrNumber, ErrDescription) 

{ 

alert(ErrDescription) ; 

} 



function SendElapsedTime() 

{ 

40 SendElapsedTimeToApplet(Current_time) ; 

Current_time+= 1 000 ; 
polling(); 

} 

45 function stopPolling() 

{ 
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clearTimeout(do?olling) 

} 

function pollingO 
{ 

5 

doPolling = setTimeout("SendElapsedTime()",1000); 

} 

//--> 

</script> 

10 

<CFOUTPUT> 

<bodybgcolor="##228B22" leftmargin=3 topmargin=3> 
</CFOUTPUT> 

1 5 <applet id="ChatApplet" width=" 1 " height=" 1 " code="ChatClient.class" 
codebase="http://blanche.tcn.net:8090/" VIEWASTEXT mayscript> 
<param name="MessageHandler" value- 'HandleSessionMessageEx M > 
<param name="ElapsedTimeMessageHandler" value="HandleElapsedTime"> 
<param name-'ErrorHandler" value- 'HandleSessionErrorEx"> 

20 <param name="SponsorHandler" value="HandleSponsor"> 
<param name="LinksHandler" value="HandleLinks"> 
<param name="CaptionHandler" value="HandleCaption"> 
<param name="AdHandler" value="HandleAd"> 
<param name="CommentsHandler" value="HandleComments"> 

25 <param name="CaptionHandler" value="HandleCaption"> 

<param name="ErrorHandler" value="HandleSessionErrorEx"> 
<param name="TimeHandler" value="HandleTime"> 
<CFOUTPUT> 

<param name="ClipSource" value="#ClipSrc#"> 
30 </CFOUTPUT> 
</applet> 

<script Language="JavaScript"> 
pollingO; 

document.applets[0] . setStartTime(); 
35 </script> 

<table width="100%" bordei="0" cellspacing="0" cellpadding="0" align="LEFT" 

valign="TOP"> 

<tr> 

<td align="left" valign="top" width="50%"> 
40 <BR> 

</center> 

</td> 
</tr> 
<tr> 

45 <td colspan="2"> 

<font face="Arial" size="-l"> 
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<a 

href="caption2.cfin?Channel=<cfoutput>#Channel#</cfou^)ut>" target="CaptionWin" 

onClick="return(WinOpen())">CC</a> 

</td> 

</tr> 

</table> 

</body> 

</html> 

</cG£> 
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File: stream4.cftn 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> 

5 

<html> 
<head> 

<title>Untitled</title> 
</head> 

10 

<cfif Trim(Channel) is "or channel is f '> 

<body bgcoloi="#228B22" leftmargin=3 topmargin=3> 

<a hre^ M http://home.soLno/-gguimers/NetBird.htmr'>Net Bird</a> 

15 

<br><br><br> 

<table width="80%" align-'CENTER" valign- 'MIDDLE" bgcoloi="#F4A460"> 

<tr><td> 

<font face="Arial" size="+l" color="Blue">Select a program to view.<br><br> 
20 Selections button presents archived shows for this demo.<br><br> 

Channels button presents a channel selector mock-up.<br><br> 
Links button shows all the links from the current program.<br><br> 
Almost everything on the screen is a live link to the internet. 

</td> 
25 </tr> 

</table> 
  <br> 



30 </center> 
</font> 

</body> 
</html> 
35 <cfelse> 



<script language="javascript M > 
<!-- 

40 var count = 0; 
var doPolling; 

var Ver4 = parselnt(navigator.appVersion) >= 4; 

varNav4 = ((navigator.appName == "Netscape") && Ver4); 

var IE4 = ((navigator.userAgent.indexOfC'MSIE") != -1) && Ver4); 

45 

var Messages = "; 
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var msg- '; 
var cjnsg-'; 
var Current_time=-1000; 
CaptionWin=null; 
5 // Save window content dimensions to work around resize 
// behaviour in WIN32 versions of Navigator 4. 
if(Nav4) 
{ 

var origWidth = window.innerWidth; 
10 var origheight = window.innerHeight; 

} 



// Invoked by <body> tag's onResize event handler to refresh the page for 
1 5 // Navigator 4 to assist in getting positioned elements back in place, 
function RestorePageQ 

{ 

if(Nav4) 

{ 

20 if (origWidth != window.innerWidth || origHeight != window.innerHeight) 

history.go(O); 

} 

} 

25 

function SendChatMessage(Author, Type, Message) 
{ 

document.applets[0].SendMessage(Author, Type, Message); 

} 

30 

function SendElapsedTimeToApplet(Time) 

{ 

document. applets[0] . SendElapsedTime(Time) ; 

} 



function HandleSessionMessageEx(Author, Type, Message) 
{ 

if(IE4) 
40 { 

document, forms [0] . WhatPosition. value=Message; 

} 

else if (Nav4) 

{ 

45 documentfoims[0].WhatPosition.value=Message; 
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} 

} 

5 function HandleElapsedTime(Message) 
{ 

if(IE4) 

{ 

document. forms[0].WhatPosition.value=Message; 

10 } 

else if (Nav4) 

{ 

document.forms[0].WhatPosition.value=Message; 
15 } 
} 

function HandleSponsor(Messagel ,Message2,Message3) 
{ 

20 //Handle the images in the SponsorWin frame 

parentDataWin.document.Sponsor.imgsrc.value = Messagel; 
parent.DataWin.document.Sponsor.msg2 .value = Message2; 
parent.DataWin.document.Sponsor.caption. value = Message2; 
parent.DataWin.document.Sponsor.submit(); 

25 

} 

function HandleLinks(Messagel,Message2, Message3) 
{ 

var Type=Message3 ; 
30 if(Type == "old") 

{ 

msg=msg+"<a href="'+Messagel+'" target='NetWin' 
onClick^mdow.open(";NetWin , ,LinkWindow);>' , +Message2+ , '</a><br>"; 

} 

35 else 
{ 

msg="<a href= , "+Messagel+'" target='NetWin* 
onClick^mdow.open(",T^etWm\LiriWmdow);>"+Message2+"</a><br>"; 

} 

40 parent.DataWin.document.Links.msg.value = msg; 

parent.DataWin.document.Lmks.submit(); 



45 } 

function HandleTime(Message) 
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{ 

Current_time=Message; 

} 

5 function Handle Ad(Message 1 ,Message2, Message3 ) 
{ 

//Handle the images in the SponsorWin frame 
parent.DataWin.document.Ad.imgsrc.value = Messagel; 
parent.DataWin.document.Ad.msg2.value = Message2; 
10 parent.DataWin.document.Ad.caption.value = Message2; 

parent.DataWin.document.Ad.submit(); 

} 

function WinOpen() 

{ 

1 5 if (CaptionWin = null) 

CaptionWin = window.open("caption2.cfin" ? "CaptionWin", 
, 'menubar=0,toolbar=0 J resizeable= : 0 J width=320,height=360 t, ); 
CaptionWin.focus(); 
20 return false; 

} 

else 

{ 

if (CaptionWin.closed = true) 
25 { 

CaptionWin = window.open("caption2.cfm", "CaptionWin", 
''menubar=0,toolbar=0,resizeable===0,width=320,height=360"); 
CaptionWin.focus(); 
return false; 

30 } 
} 

} 

function HandleCaption(msg) 
35 { 

c_msg=c_msg+"\r\n"+msg; 

//Handle the images in the SponsorWin frame 

if(CaptionWin == null || CaptionWinxlosed = true) 

{ 

40 

} 

else 
{ 

parent.DataWin.document.Caption.caption.value = c_msg; 
45 parent.DataWin.document.Caption.submitO; 
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} 

function HandleComments(Message) 

{ 

5 if(IE4) 

{ 

document.forms[0].WhatPosition.value=Message; 

} 

else if (Nav4) 

10 { 

document.fonns[0].WhatPosition.value=Message; 

} 

15 } 



function HandleSessionErrorEx(ErrNumber, ErrDescription) 

{ 

20 alert(ErrDescription); 
} 



function SendElapsedTime() 
25 { 

SendElapsedTimeToApplet(Current_time); 

Current_time+= 1 000 ; 

polling(); 

30 } 

function stopPolling() 

{ 

clearTimeout(doPolling) 

35 } 

function pollingO 

{ 

doPolling = setTimeout("SendElapsedTime()",1000); 

40 } 

//--> 

</script> 
<CFOUTPUT> 

45 <body bgcolor="##228B22" leftmargin=3 topmargin=3> 
</CFOUTPUT> 
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<applet id="ChatApplet" width='T' height="l" code= r, LiveChatClient.class M 

codebase= n http://blanche.tcn.net:8090/" VIEWASTEXT mayscript> 

<param name- MessageHandler" value="HandleSessionMessageEx"> 
5 <param name="ElapsedTimeMessageHandler" value="HandleElapsedTime"> 

<param name- 'ErrorHandler" value="HandleSessionErrorEx"> 

<param name- 'SponsorHandler" value= M HandleSponsor"> 

<param name= ff LinksHandler" value= M HandleLinks"> 

<param name- 'CaptionHandler" value= n HandleCaption n > 
1 0 <param name- ' AdHandler" value- 'HandleAd"> 

<param name- 'CommentsHandler" value="HandleComments"> 

<param name= n CaptionHandler n value- 'HandleCaption"> 

<param name="ErrorHandler" value="HandleSessionEirorEx M > 

<param name- TimeHandler" value="HandleTime M > 
15 <CFOUTPUT> 

<param name= M ClipSource" value="#ClipSrc#"> 

</CFOUTPUT> 

</applet> 

<script Language- T JavaScript"> 

20 polling(); 

document.applets[0].getCurrentPlayTime(); 

</script> 

<table width="100%" border="0 n cellspacing= n 0" cellpadding= n 0" align="LEFT" 
valign="TOP"> 
25 <tr> 

<td align="left" valign="top M > 

<! — stream in frame name- 'streamWin" — > 



<cfparam name= n Channel" default=""> 
30 <cfparam name="Net" default= ,m > 

<cQ)aram name="Clipsrc n default=""> 
<cfyaram name- 'size" default= 1,M > 



<cfifSize is'S^ 
35 <cfsetWidth=160> 
<cfsetHeight=120> 

<cfelseif Size is 'U> 

<cfset Width=512> 
<cfset Heights 84> 

40 </cfif> 



<cfif Not Clipsrc is "> 

<cfif ClipSrc is "SunPar3 n and Size is "L"> 
<cfset cliploc = 

45 , http://www.broadcastxom^usiness/sun/98par3challenge_102099_100.ram 1 > 
<cfelseif ClipSrc is "SunPar3" and Size is "S"> 
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<cfset cliploc = 

r http://www.broadcastxom^usiness/sun/98par3challenge_102099_56Tam'> 
<cfelse> 

<cfifSize is T S'> 

5 <cfset cliploc = 7media/56k/#Clipsrc#.ram'> 

<cfelse> 

<cfset cliploc = Vmedia/#Clipsrc#.ram f > 

</cfif> 

<cfif> 

10 </cfif> 



<center> 
<cfoutput> 
15 <object 

ID-video 1 

CLASSID- M clsid:CFCDAA03-8BE4-llcf-B84B-0020AFBBCCFA n 

height=#Height# 

width=#Width# 

20 > 



<param name="controls" value="ImageWindow"> 

<param NAME= ,, console n VALUE= M Clipr> 

<paramNAME= n autostart" VALUE= M true"> 
25 <param NAME-'src" VALUE="#Cliploc#"> 

<embed name= M videol M SRC="#Cliploc#" 

type= n audio/x-pn-realaudio-plugin" 

CONSOLE="Clipl M 

controls="Image Window" 
30 height=#Height# 

width=#Width# 

AUTOSTART=true> 

</object> 



35 <BR> 
<form> 

<input type- "Button" name- 'PlayButton" value- Tlay" 
onClick= M document.applets[0]init();document.applets[0].getCuirentPlayTime() 
deol .DoPlay();polling()"> 
40 <input type- "Button" name- TauseButton" value-Tause" 

onClick= ,, documentvideol.DoPause();stopPolling(); M > 

<input type- 'Button" name- 'Stop_Button M value="Stop" 
onClick- 'document, video 1 .DoStop();stopPolling()"> 
<!— <input type-'Button" name- 'position" value- 'Position" 
45 onClick= 1 'javascript:alert(document. video 1 .GetPosition())"> 
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<input type- 'Button" name="buffer" value-'Send" 
onClick="SendChatMessage('ripu' ? 'ChatMessage', document. video 1 .GetPosition())"> 
<input type-Text" name="WhatPosition"> — > 
</form> 
5 </cfoutput> 
</center> 

</td> 
</tr> 
<tr> 

10 <td colspan="2"> 

<fontface= n Arial M size="-l"> 
<a 

href^"caption2xfm?Chaimel=<cfc^^ target^'CaptionWin" 

onClick= n return(WinOpen()) M >CC</a> 
15 </td> 

</tr> 

</table> 

</body> 

</html> 
20 </cfif> 



<!— <table width="100%" border="0" cellspacing="0" cellpadding="0" align="LEFT" 
valign='TOP"> 
25 <tr> 

<td align="left" valign="top" width="50%"> 
<BR> 
</center> 

</td> 
30 </tr> 
<tr> 

<td colspan="2"> 

<font face= n Arial" size="-l"> 
<a 

35 href^"caption2xfm?Chamiel=<c^^ target="CaptionWin" 

onClick= ,, return(WinOpen())">CC</a> 

</td> 

</tr> 

</table> 
40 </body> 

</html> 

</cfif> — > 
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File: thankyou.cfm 

<cfquery name- 'getcomments' 1 
5 datasource="VBIContent n 
username- 'caption" 
pass word="trewq5 5 "> 



select comment from ctlfile 
1 0 where clipsource = '#clipsrc#' 
and Type = 'C 

and seconds > #Evaluate(LTime -10)# 
and seconds < #Evaluate(LTime +10)# 
order by seconds 



</cfquery> 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> 

20 

<html> 
<head> 

<title>Thank You</title> 
</head> 

25 

<body> 

<font face= M AriaT color = "cadetblue" size="-l ">Thank you for your comment. Here are the 

comments around yours: 

<font color= n crimson"> 
30 <br> 

<cfoutput query="GetComments"> 

#comment#<br> 

</cfoutput></font> 

</font> 
35 <form> 

<input type= ,, Button" value="Close M onClick="window.close();"> 

</form> 

</body> 

</html> 

40 
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Appendix D 

Copyright © 2000 I LOVE TV INC. (868970 Ontario Inc.) 

All rights reserved unless otherwise noted 

5 

Cold Fusion 
TESsocket 



File: captionsocLc 

#include <stdio.h> 
#include <sys/types.h> 
1 5 #include <sy s/ socket.h> 
#include <netinet/in.h> 
#include <netdb.h> 
#include <fcntl.h> 
#include <errno.h> 

20 

#define EOCAP (buf[0]=0x01 || buf[0]==0x02 || buf[0]=0xll || buf[0]=0xl2) 
#define LOG(X) {fprintf(^/V%s",X); fflush(fp);} 
#define DEBUG 0 

25 #define captionsock 9000 

#define IPTES3 "206.22 1.245.75" 

FILE *fp; 

30 #define stderr fp 

static parse(); 



int argc; 
35 char **argv; 
int state; 

charoutstr[10000]; 

int sock_desc; 

struct sockaddrin sa; 
40 struct hostent *hp; 

struct servent *sp; 

int len ? seq,i 5 flags=0; 

char seq_str[30]; 

char rep_type; 
45 char query_str[90000]; 

FILE *fp__head ? *^Jist,*fp_tail; 



/* Socket descriptor */ 
/* Internet Socket addr. struct */ 
/* Result of host name lookup */ 
/* Result of service lookup */ 
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char ch; 

charARGV[26][9000]; 
intARGC; 

5 int barge; 

char *bargv[20],*cp; 

char myname[] = "captionsock"; /* this program nanme */ 

10 intinc; 

char junk[9000]; 
charbuf[9000]; 

1 5 /* all remaining test passed to program is then passed 
directly to upstream */ 

int count; 
int lenr,res; 
20 charblank[K"; 

#define MAXHOSTNAME 32 
#define BUFSIZE 9000 
25 int 

main ( ) 

{ 

char sendbuff[300]; /* due to captioning data size limitiations, 
30 this should be more than enough */ 

int buffm; 

char *buffpnt; 

int firsttime=l; 

char field[2]; 
35 charoutb[1000]; 

char systemstring[200]; 

char localhost[32]; 

40 Q)=fopen("/tmp/captionlog ,, / , w n ); 
/* caption log stores raw data!!! */ 

/***************************^ 

45 

gethostname(localhost, MAXHOSTNAME); 
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if((hp = gethostbyname(localhost)) == NULL) { 
fprintf(stderr,"no such host?\n"); 
exit(0); 

5 } 

sa.sin_port = htons(captionsock); 

bcopy((char *)hp->h_addr, (char *)&sa.sin_addr, hp->h_length); 
sa.sin_family = hp->h_addrtype; 
10 inet_aton(IPTES3,&sa.sin_addr); 
/*IPofTES3!! */ 

if((sock_desc=socket(hp->h_addrtype,SOCK_STREAM,0)) < 0) { 
perror("socket"); 
15 exit(0); 

} 



LOG("CONNECT SOCKET"); 
20 i^connect(sock_desc,&sa,(int)(sizeofsa))<0) { 
perror("connect"); 
exit(0); 

} 

25 LOGfREAD"); 

/* send these lines off to mysql as they come in */ 
/* insert into record incrementing table, with time stamp on creation */ 
/* perl program will collect together fragmented time stamped data, 
and join to completed objects ... then on from there*/ 

30 

/* TOKENS at this time are 0x01 0x02 0x1 1 0x12 0x0a */ 
field[l]='\0'; 
35 buffpnt=sendbuff; 

/* on first in, discard everything up to first valid TOKEN */ 
for(;;){ 

40 len = read(sock_desc,buf, 1 ) ; 
buf[len]='\0'; 

bufl0]=buf[0]&0x7f; /* mask of high bit */ 
/* DEBUG: printf("%s",buf); */ 



45 if( len > 0 ) 

{ 
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if(EOCAP) 
{ 

*buffpnt=*\0'; 

if( firsttime ) { firsttime=0; buffpnt=sendbuff;} 
5 else 

{ 

/* set up shell cmd line to insert to mysql! ! */ 
systemstring[0]-\O f ; 

strcat(systemstring/'echo 'insert into raw (str2,stamped) values (Y ,M ); 
10 strcat(systemstring, field); 

/* loop over data and make comma delimited*/ 
strcat(systemstring, " "); 

1 5 for(i=0; i<strlen(sendbuff); i++) 

{ 

sprintf(outb ? "%d",(int)sendbuff[i]); 
strcat(systemstring, outb); 
strcat(systemstring, ","); 

20 } 

/* echo 'insert into raw (str2,stamped) values ("2 S^S/'^nowO)' | /usr/ww/local/mysql- 
3.22.27/bin/mysql caption */ 

25 /* strcat(systemstring, "V^owO)' » Amp/yyyy"); */ 

strcat(systemstring 5 "\",now0) f I /usr/www/local/mysql-3.22.27/bin/mysql 

caption"); 

30 

/* comment out logic below to send data if also blank */ 
if( strlen(sendbuff) > 0 ) 

system(sy stemstring) ; 



35 



buffpnt=sendbuff; 
} /* end else */ 



switch ((char)(buf[0]» 
40 { 

case 0x01: field[0]=T; break; 
case 0x02: field[0]-'2'; break; 
case 0x11: field[0]=T; break; 
case 0x12: fieldfoj-^'; break; 
45 default: exit(0); break; 
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} /* end if EOCAP */ 
else /* not end of caption char */ 

V if(buf[0]=0x0a ) { buf[0]=0xff; exit(0); } */ 
5 *(buffpnt)=buf[0]; buffpnt++; 

LOG(buf); 

} 

} /*endlen>0*/ 

/* SYSTEM shell call - although inefficent right know, this still can write over 100 sub 
string events to the DB 
per second, far beyond what we need! ! ! */ 

15 /* system("date » /tmp/yy"); */ 
} 

/* NOTE: 01 02 1 1 12 (hex) 01 02 start of data 11 12 no data 
0x0a just means nothing ? */ 

20 



} 
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File: cgic.c 

#if CGICDEBUG 
5 #define CGICDEBUGSTART \ 

{\ 

FILE *dout; \ 

dout = fopen("/home^outell/public_htmlydebug ,, , "a"); \ 

1 0 #define CGICDEBUGEND \ 
fclose(dout); \ 

} 

#else /* CGICDEBUG */ 
#define CGICDEBUGSTART 
1 5 #define CGICDEBUGEND 
#endif /* CGICDEBUG */ 

#include <stdio.h> 

#include <string.h> 
20 #include <ctype.h> 

#include <stdlib.h> 

#ifiidefNO_UNISTD 

#include <unistd.h> 

#endif/* NO_UNISTD */ 
25 #include 7usr/locaycgicl03/cgic.h M 

#define cgiStrEq(a, b) (!strcmp((a), (b))) 

char *cgiServerSoftware; 
30 char *cgiServerName; 

char *cgiGatewayInterface; 

char *cgiServerProtocol; 

char *cgiServerPort; 

char *cgiRequestMethod; 
35 char *cgiPathInfo; 

char *cgiPathTranslated; 

char *cgiScriptName; 

char *cgiQueryString; 

char *cgiRemoteHost; 
40 char *cgiRemoteAddr; 

char *cgiAuthType; 

char *cgiRemoteUser; 

char *cgiRemoteIdent; 

char *cgiContentType; 
45 int cgiContentLength; 

char *cgiAccept; 
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char *cgiUserAgent; 

FILE *cgiln; 
FILE *cgiOut; 

5 

/* One form entry, consisting of an attribute-value pair. */ 

typedef struct cgiFormEntry Struct { 
char *attr; 
10 char *value; 

struct cgiFormEntryStruct *next; 
} cgiFormEntry; 

/* The first form entry. */ 
1 5 static cgiFormEntry *cgiFormEntryFirst; 

/* True if CGI environment was restored from a file. */ 
static int cgiRestored = 0; 

20 static void cgiGetenv(char **s, char *var); 

typedef enum { 

cgiParseSuccess, 
cgiParseMemory, 
25 cgiParselO 

} cgiParseResultType; 

static cgiParseResultType cgiParseGetFormInput(); 
static cgiParseResultType cgiParsePostFormInput(); 
30 static cgiParseResultType cgiParseFormInput(char *data, int length); 
static void cgiSetupConstants(); 
static void cgiFreeResources(); 
static int cgiStrEqNc(char *sl, char *s2); 

35 int main(int argc, char *argv[]) { 
int result; 

char *cgiContentLengthString; 
cgiSetupConstants(); 

cgiGetenv(&cgiServerSoftware, "SERVERSOFTWARE"); 
40 C giGetenv(&cgiServerName, " SERVERN AME") ; 

cgiGetenv(&cgiGatewayInterface 5 H GATEWAY_INTERFACE"); 

cgiGetenv(&cgiServerProtocol 5 "SERVER_PROTOCOL"); 

cgiGetenv(&cgiServerPort, M SERVER_PORT"); 

cgiGetenv(&cgiRequestMethod 5 "REQUEST_METHOD"); 
45 cgiGetenv(&cgiPathInfo, ! TATH_INFO M ); 

cgiGetenv(&cgiPathTranslated, "PATH TRANSLATED"); 
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cgiGetenv(&cgiScriptName, "SCRIPT_NAME"); 

cgiGetenv(&cgiQueryString, "QUERY_STRING") ; 

cgiGetenv(&cgiRemoteHost, "REMOTE_HOST"); 

cgiGetenv(&cgiRemoteAddr, "REMOTE_ADDR") ; 
5 cgiGetenv(&cgiAuthType, "AUTH_TYPE"); 

cgiGetenv(&cgiRemoteUser, "REMOTE_USER"); 

cgiGetenv(&cgiRemoteIdent, "REMOTE_IDENT"); 

cgiGetenv(&cgiContentType, "CONTENT_TYPE"); 

cgiGetenv(&cgiContentLengthString, "CONTENT_LENGTH") ; 
10 cgiContentLength = atoi(cgiContentLengthString); 

cgiGetenv(&cgiAccept, "HTTP_ACCEPT"); 

cgiGetenv(&cgiUserAgent,"HTTP_USER_AGENT"); 
#ifdefCGICDEBUG 

CGICDEBUGSTART 
15 fprintf(dout, "%d\n", cgiContentLength); 

fprintf(dout, "%s\n", cgiRequestMethod); 

fprintf(dout, "%s\n", cgiContentType); 

CGICDEBUGEND 
#endif /* CGICDEBUG */ 
20 cgiFormEntryFirst = 0; 

cgiln = stdin; 

cgiOut = stdout; 

cgiRestored = 0; 

25 

/* These five lines keep compilers from 

producing warnings that argc and argv 
are unused. They have no actual function. */ 
if (argc) { 
30 if (argv[0]) { 

cgiRestored = 0; 

} 

} 

35 

if (cgiStrEqNc(cgiRequestMethod, "post")) { 
#ifdef CGICDEBUG 

CGICDEBUGSTART 
fprintf(dout, "POSTrecognizedW); 
40 CGICDEBUGEND 
#endif /* CGICDEBUG */ 

if (cgiStrEqNc(cgiContentType, "application/x-www-form-urlencoded")) { 



#ifdef CGICDEBUG 
45 CGICDEBUGSTART 

fprintf(dout, "Calling PostFormInput\n"); 
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CGICDEBUGEND 
#endif /* CGICDEBUG */ 

if (cgiParsePostf ormlnputO != cgiParseSuccess) { 

#ifdef CGICDEBUG 
5 CGICDEBUGSTART 

fprintf(dout, "PostFormlnput failed\n"); 
CGICDEBUGEND 

#endif /* CGICDEBUG */ 

cgiFreeResources(); 
10 return -1; 

} 

#ifdef CGICDEBUG 

CGICDEBUGSTART 
fprintf(dout, "PostFormlnput succeeded\n"); 
15 CGICDEBUGEND 
#endif /* CGICDEBUG */ 

} 

} else if (cgiStrEqNc(cgiRequestMethod, "get")) { 

/* The spec says this should be taken care of by 
20 the server, but... it isn't */ 

cgiContentLength = strlen(cgiQuery String); 
if (cgiParseGetFormlnputO !~ cgiParseSuccess) { 
#ifdef CGICDEBUG 

CGICDEBUGSTART 
25 fprintf(dout, "GetFormlnput failedW); 

CGICDEBUGEND 
#endif /* CGICDEBUG */ 

cgiFreeResources() ; 
return -1; 

30 } else { 

#ifdef CGICDEBUG 

CGICDEBUGSTART 
fprintf(dout ? "GetFormlnput succeeded\n"); 
CGICDEBUGEND 
35 #endif /* CGICDEBUG */ 

} 

} 

result = cgiMain(); 
cgiFreeResources(); 

40 

/* The following two lines allegedly produce better behavior 
when run with the CERN server on some platforms. 
Remove them and experiment if you wish. */ 

fflush(stdout); 
45 sleep(l); 

return result; 
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} 

static void cgiGetenv(char **s, char *var) { 
*s = getenv(var); 
5 if (!(*s)) { 

} 

} 

10 static cgiParseResultType cgiParsePostFormInput() { 
char *input; 

cgiParseResultType result; 
if (IcgiContentLength) { 

return cgiParseSuccess; 

15 } 

input = (char *) malloc(cgiContentLength); 
if (!input) { 

return cgiParseMemory; 

} 

20 if (fread(input, 1, cgiContentLength, cgiln) != cgiContentLength) { 

return cgiParselO; 

} 

result = cgiParseFormInput(input ? cgiContentLength); 
free(input); 
25 return result; 

} 

static cgiParseResultType cgiParseGetFormInput() { 

return cgiParseFormInput(cgiQueryString, cgiContentLength); 

30 } 

typedef enum { 

cgiEscapeRest, 

cgiEscapeFirst, 
35 cgiEscapeSecond 
} cgiEscapeState; 

typedef enum { 

cgiUnescapeSuccess, 
40 cgiUnescapeMemory 
} cgiUnescapeResultType; 

static cgiUnescapeResultType cgiUnescapeChars(char **sp ; char *cp, int len); 

45 static cgiParseResultType cgiParseFormInput(char *data ? int length) { 

/* Scan for pairs, unescaping and storing them as they are found. */ 
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int pos = 0; 
cgiFormEntry *n; 
cgiFormEntry *1 = 0; 
while (pos != length) { 
int foundEq = 0; 
int foundAmp = 0; 
int start = pos; 
int len = 0; 
char *attr; 
char *value; 
while (pos != length) { 

if(data[pos] = '=') { 
foundEq = 1 ; 
pos++; 
break; 

} 

pos++; 
len++; 

} 

if (IfoundEq) { 
break; 

if (cgiUnescapeChars(&attr, data+start, len) 
!= cgiUnescapeSuccess) { 
return cgiParseMemory; 

} 

start = pos; 
len = 0; 

while (pos != length) { 

if(data[pos] = '&') { 
foundAmp = 1 ; 
pos++; 
break; 

} 

pos++; 
len++; 

/* The last pair probably won T t be followed by a &, but 
that's fine, so check for that after accepting it */ 

if (cgiUnescapeChars(&value, data+start, len) 
!= cgiUnescapeSuccess) { 
return cgiParseMemory; 

/* OK, we have a new pair, add it to the list. */ 

n = (cgiFormEntry *) malloc(sizeof(cgiFormEntry)); 

if On) { 
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return cgiParseMemory; 

} 

n->attr = attr; 
n->value = value; 
5 n->next = 0; 

if (!1) { 

cgiFormEntryFirst = n; 

} else { 

l->next = n; 

10 } 

l = n; 

if (! found Amp) { 
break; 

} 

15 } 

return cgiParseSuccess; 

} 

static int cgiHexValue[256]; 

20 

cgiUnescapeResultType cgiUnescapeChars(char **sp, char *cp ; int len) { 
char *s; 

cgiEscapeState escapeState = cgiEscapeRest; 
int escapedValue = 0; 
25 int srcPos = 0; 

int dstPos = 0; 

s = (char *) malloc(len + 1); 

if (Is) { 

return cgiUnescapeMemory; 

30 } 

while (srcPos < len) { 

int ch = cp[srcPos]; 
switch (escapeState) { 

case cgiEscapeRest: 
35 if(ch = , %') { 

escapeState = cgiEscapeFirst; 
}else if(ch = '+0 { 

s[dstPos++] - * '; 

} else { 

40 s[dstPos++] - ch; 

} 

break; 

case cgiEscapeFirst: 
escapedValue = cgiHexValue[ch] « 4; 
45 escapeState = cgiEscapeSecond; 

break; 
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case cgiEscapeSecond: 
escapedValue += cgiHexValue[ch]; 
s[dstPos++] = escapedValue; 
escapeState = cgiEscapeRest; 
break; 

} 

srcPos++; 

} 

s[dstPos] = '\0'; 
*sp = s; 

return cgiUnescapeSuccess; 

} 

static void cgiSetupConstants() { 
int i; 

for(i=0; (i<256);i++) { 
cgiHexValue[i] = 0; 

} 

cgiHexValue['0'] = 0; 
cgiHexValue[T] = l; 
cgiHexValue['2'] = 2; 
cgiHexValue['3'] = 3; 
cgiHexValue['4'] = 4; 
cgiHexValue['5'] = 5; 
cgiHexValue['6'] = 6; 
cgiHexValue['7'] = 7; 
cgiHexValue['8"] = 8; 
cgiHexValue['9'] = 9; 
cgiHexValue['A'] = 10; 
cgiHexValue['B'] = ll; 
cgiHexValue['C'] = 12; 
cgiHexValue['D'] = 13; 
cgiHexValue['E] = 14; 
cgiHexValue['F] = 15; 
cgiHexValuefa'] = 10; 
cgiHexValue[*b'] = ll; 
cgiHexValuefc'] = 12; 
cgiHexValuefd'] = 13; 
cgiHexValue['e'] = 14; 
cgiHexValue['f ] = 15; 

} 

static void cgiFreeResources() { 

cgiFormEntry *c = cgiFormEntryFirst; 
cgiFormEntry *n; 
while (c) { 
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n = c->next; 
free(c->attr); 
free(c->value); 
free(c); 
5 c = n; 

} 

/* If the cgi environment was restored from a saved environment, 

then these are in allocated space and must also be freed */ 
if (cgiRestored) { 
1 0 free(cgiServerSoftware); 

free(cgiS erverName) ; 

free(cgiGatewaylnterface); 

free(cgiServerProtocol); 

free(cgiServerPort); 
1 5 free(cgiRequestMethod); 

free(cgiPathlnfo); 

free(cgiPathTranslated); 

free(cgiScriptName); 

free(cgiQueryString); 
20 free(cgiRemoteHost); 

free(cgiRemo te Addr) ; 

free(cgi AuthType) ; 

free(cgiRemo teUser) ; 

free(cgiRemoteldent); 
2 5 free(cgiContentType) ; 

free(cgiAccept); 

free(cgiUser Agent) ; 

} 

} 

30 

static cgiFormResultType cgiFormEntryString( 

cgiFormEntry *e, char *result, int max, int newlines); 

static cgiFormEntry *cgiFormEntryFindFirst(char *name); 
35 static cgiFormEntry *cgiFormEntryFindNext(); 

cgiFormResultType cgiFormString( 

char *name ? char ^result, int max) { 
cgiFormEntry *e; 
40 e = cgiFormEntryFindFirst(name); 

if (!e) { 

strcpy(result, ""); 

return cgiFormNotFound; 

} 

45 return cgiFormEntryString(e, result, max, 1); 

} 
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cgiForrnResultType cgiFormStringNoNewlines( 
char *name, char *result, int max) { 
cgiFormEntry *e; 
5 e = cgiFormEntryFindFirst(name); 

if (!e) { 

strcpy(result, ""); 

return cgiFormNotFound; 

} 

10 return cgiFormEntryString(e, result, max, 0); 

} 

cgiFormResultType cgiFormStringMultiple( 
char *name, char ** ^result) { 
15 char **stringArray; 

cgiFormEntry *e; 
int i; 

int total = 0; 

/* Make two passes. One would be more efficient, but this 
20 function is not commonly used. The select menu and 

radio box functions are faster. */ 
e = cgiFormEntryFindFirst(name); 
if (e 1=0) { 

do { 

25 total++; 

} while ((e = cgiFormEntryFindNext()) != 0); 

} 

string Array = (char **) malloc(sizeof(char *) * (total + 1)); 
if (IstringArray) { 
30 *result = 0; 

return cgiFormMemory; 

} 

/* initialize all entries to null; the last will stay that way */ 
for (i=0; (i <= total); i++) { 
35 stringArray[i] = 0; 

} 

/* Now go get the entries */ 

e = cgiFormEntryFindFirst(name); 
#ifdefCGICDEBUG 
40 CGICDEBUGSTART 

fprintf(dout, "StringMultiple Beginning\n"); 

CGICDEBUGEND 
#endif /* CGICDEBUG */ 

if (e) { 

45 i = 0; 

do { 



-223- 



int max = strlen(e->value) + 1; 
stringArray[i] = (char *) malloc(max); 
if(stringArray[i] = 0) { 

/* Memory problems */ 
cgiStringArrayFree(stringArray); 

*result = 0; 

return cgiFormMemory; 

strcpy (string Array [i], e->value); 
cgiFormEntryString(e, string Array [i], max, 
i++; 

} while ((e = cgiFormEntryFindNext()) != 0); 
*result = stringArray; 
#ifdefCGICDEBUG 
; CGICDEBUGSTART 

fprintf(dout, "StringMultiple Succeeding^"); 
CGICDEBUGEND 

#endif /* CGICDEBUG */ 

return cgiFormSuccess; 

) } else { 

*result = stringArray; 

#ifdef CGICDEBUG 

CGICDEBUGSTART 

fprintf(dout, "StringMultiple found nothing\n n ); 
5 CGICDEBUGEND 
#endif /* CGICDEBUG */ 

return cgiFormNotFound; 

} 

} 
30 

cgiFormResultType cgiFormStringSpaceNeeded( 
char *name, int *result) { 
cgiFormEntry *e; 
e = cgiFormEntryFindFirst(name); 

35 if (!e) { 

*result = 1; 

return cgiFormNotFound; 

^result = strlen(e->value) + 1; 
40 return cgiFormSuccess; 

} 

static cgiFormResultType cgiFormEntryString( 

cgiFormEntry *e, char *result, int max, int newlines) { 

45 char *dp, *sp; 

int truncated = 0; 
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int len = 0; 
int avail = max- 1; 
int crCount = 0; 
int lfCount = 0; 
5 dp = result; 

sp = e->value; 
while (1) { 

int ch; 

ch = *sp; 

10 if (len = avail) { 

truncated = 1; 
break; 

} 

/* Fix the CR/LF, LF, CR nightmare: watch for 
1 5 consecutive bursts of CRs and LFs in whatever 

pattern, then actually output the larger number 
of LFs. Consistently sane, yet it still allows 
consecutive blank lines when the user 
actually intends them. */ 
20 if ((ch 13) |i (ch == 10)) { 

if(ch=13) { 

crCount++; 

} e l se { 

lfCount++; 

25 } 
} else { 

if(crCount||lfCount) { 

int lfsAdd = crCount; 
if (lf€ount>crCount) { 
30 lfsAdd = lfCount; 

} 

/* Stomp all newlines if desired */ 
if (Inewlines) { 

lfsAdd = 0; 

35 } 

while (lfsAdd) { 

if (len = avail) { 

truncated = 1; 
break; 

40 } 

*dp = 10; 
dp++; 
lfsAdd-; 
len++; 

45 } 

crCount = 0; 
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lfCount = 0; 

} 

if(ch = '\0'){ 

/* The end of the source string 

break; 

} 

*dp = ch; 

dp++; 

len++; 

} 

sp++; 

} 

*dp - '\0 f ; 

if (truncated) { 

return cgiFormTruncated; 
}elseif(!len){ 

return cgiFormEmpty; 

} else { 

return cgiFormSuccess; 

} 

} 

static int cgiFirstNonspaceChar(char *s); 

cgiFormResultType cgiFormInteger( 

char *name, int *result, int defaultV) { 
cgiFormEntry *e; 
int ch; 

e = cgiFormEntryFindFirst(name); 
if (!e) { 

*result = defaultV; 
return cgiFormNotFound; 

} 

if (!strlen(e->value)) { 

*result = defaultV; 
return cgiFormEmpty; 

ch = cgiFirstNonspaceChar(e->value); 

if ([(isdigit(ch)) && (ch != '-') && (ch != '+')) { 

*result = defaultV; 

return cgiFormBadType; 

} else { 

*result = atoi(e->value); 
return cgiFormSuccess; 

} 

} 
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cgiFormResultType cgiFormIntegerBounded( 

char *name, int *result, int min ? int max, int defaultV) { 

cgiFormResultType error = cgiFormInteger(name, result, defaultV); 
5 if (error != cgiFormSuccess) { 

return error; 

} 

if (*result < min) { 

*result = min; 
1 0 return cgiFormConstrained; 

} 

if (*result > max) { 

*result = max; 

return cgiFormConstrained; 

15 } 

return cgiFormSuccess; 



cgiFormResultType cgiFormDouble( 
20 char *name, double *result, double defaultV) { 

cgiFormEntry *e; 
int ch; 

e = cgiFormEntryFindFirst(name); 
if (!e) { 

25 *result = defaultV; 

return cgiFormNotFound; 

} 

if (!strlen(e->value)) { 

*result = defaultV; 
30 return cgiFormEmpty; 

} 

ch = cgiFirstNonspaceChar(e->value); 
if (!(isdigit(ch)) && (ch != 7) && (ch != '-') && (ch != f + r )) { 
*result = defaultV; 
35 return cgiFormBadType; 

} else { 

*result = atof(e->value); 
return cgiFormSuccess; 

} 

40 } 

cgiFormResultType cgiFormDoubleBounded( 

char *name, double *result, double min, double max, double defaultV) { 
cgiFormResultType error = cgiFormDouble(name, result, defaultV); 
45 if (error != cgiFormSuccess) { 

return error; 
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} 

if (*result < min) { 

*result = min; 

return cgiFonnConstrained; 

} 

if (*result > max) { 

*result = max; 

return cgiFonnConstrained; 

} 

return cgiFormSuccess; 

} 

cgiFormResultType cgiFormSelectSingle( 

char *name, char **choicesText, int choicesTotal, 
int *result, int defaultV) 

{ 

cgiFormEntry *e; 
inti; 

e = cgiForaiEntryFindFirst(name); 

#ifdefCGICDEBUG 

CGICDEBUGSTART 

fprintf(dout, "%d\n", (int) e); 

CGICDEBUGEND 
#endif /* CGICDEBUG */ 

if (!e) { 

*result = defaultV; 
return cgiFormNotFound; 

for (i=0; (i < choicesTotal); i++) { 
#ifdef CGICDEBUG 

CGICDEBUGSTART 

fprintf(dout, "%s %sW\ choicesText[i], e->value) 

CGICDEBUGEND 

#endif /* CGICDEBUG */ 

if (cgiStrEq(choicesText[i], e->value)) { 

#ifdef CGICDEBUG 

CGICDEBUGSTART 
fprintf(dout, "MATCH\n"); 
CGICDEBUGEND 

#endif /* CGICDEBUG */ 

*result = i; 

return cgiFormSuccess; 

} 

} 

*result = defaultV; 

return cgiFormNoSuchChoice; 
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} 

cgiFormResultType cgiFonnSelectMultiple( 

char *name, char **choicesText, int choicesTotal, 
5 int *result, int ^invalid) 

{ 

cgiFormEntry *e; 
int i; 

int hits = 0; 
10 int invalidE = 0; 

for (i=0; (i < choicesTotal); i++) { 
result[i] = 0; 

} 

e = cgiFormEntryFindFirst(name); 
15 if (!e) { 

^invalid = invalidE; 
return CgiFormNotFound; 

} 

do { 

20 int hit = 0; 

for (i=0; (i < choicesTotal); i++) { 

if (cgiStrEq(choicesText[i] ? e->value)) { 
result[i] = 1 ; 
hits++; 

25 hit = 1; 

break; 

} 

} 

if (!(hit)) { 
30 invalidE++; 

} 

} while ((e = cgiFormEntryFindNext()) != 0); 



35 



^invalid = invalidE; 



if (hits) { 

return cgiFormSuccess; 

} else { 

return cgiFormNotFound; 

40 } 

} 

cgiFormResultType cgiFormCheckboxSingle( 
char *name) 

45 { 

cgiFormEntry *e; 
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e = cgiFormEntryFindFirst(name); 
if (!e) { 

return cgiFormNotFound; 

} 

5 return cgiFormSuccess; 

} 

extern cgiFormResultType cgiFormCheckboxMultiple( 
char *name, char **valuesText, int valuesTotal, 
10 int *result, int ^invalid) 

{ 

/* Implementation is identical to cgiFormSelectMultiple. */ 
return cgiFormSelectMultiple(name, valuesText, 
valuesTotal, result, invalid); 

15 } 

cgiFormResultType cgiFormRadio( 
char *name, 

char **vahiesText, int valuesTotal, int *result, int defaultV) 

20 { 

/* Implementation is identical to cgiFormSelectSingle. */ 
return cgiFormSelectSingle(name, valuesText, valuesTotal, 
result, defaultV); 

} 

25 

void cgiHeaderLocation(char *redirectUrl) { 

fprintf(cgiOut, "Location: %s%c%c", redirectUrl, 10, 10); 

} 

30 void cgiHeaderStatus(int status, char *statusMessage) { 

fprintf(cgiOut, "Status: %d %s%c%c", status, statusMessage, 
10, 10); 

} 

35 void cgiHeaderContentType(char *mimeType) { 

fprintf(cgiOut, "Content-type: %s%c%c", mimeType, 10, 10); 

} 

#ifndefNO_SYSTEM 

40 

int cgiSaferSystem(char ^command) { 
char *s; 
char *sp; 
int i; 

45 int len = (strlen(command) * 2) + 1 ; 

s = (char *) malloc(len); 
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if (!s) { 

return -1; 

} 

sp = s; 

for (i=0; (i < len); i++) { 

if (command[i] = ';') { 
*sp = 'W; 
sp++; 

} else if (command[i] = T) { 

*sp = '\V; 
sp++; 

} 

*sp = command[i]; 
sp++; 

} 

*sp = *\0'; 
return system(s); 

} 

#endif/* NOJSYSTEM */ 

static int cgiWriteString(FILE *out ? char *s); 

static int cgiWriteInt(FILE *out, int i); 

cgiEnvironmentResultType cgiWriteEnvironment(char ^filename) { 
FILE *out; 
cgiFormEntry *e; 

/* Be sure to open in binary mode */ 
out = fopen(filename, "wb"); 
if (lout) { 

/* Can't create file */ 

return cgiEnvironmentIO ; 

if (!cgiWriteString(out, cgiServerSoftware)) { 
goto error; 

if(!cgiWriteString(out 5 cgiServerName)) { 
goto error; 

if (!cgiWriteString(out, cgiGatewaylnterface)) { 
goto error; 

if (!cgiWriteString(out, cgiServerProtocol)) { 
goto error; 

} 
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if (!cgiWriteString(out> cgiServerPort)j { 
goto error; 

} 

if (!cgiWriteString(out, cgiRequestMethod)) { 
5 goto error; 

} 

if (!cgiWriteString(out, cgiPathlnfo)) { 
goto error; 

} 

10 if (!cgiWriteString(out, cgiPathTranslated)) { 

goto error; 

} 

if (!cgiWriteString(out ? cgiScriptName)) { 
goto error; 

15 } 

if (!cgiWriteString(out, cgiQueryString)) { 

goto error; 

} 

if (!cgiWriteString(out, cgiRemoteHost)) { 
20 goto error; 

} 

if (!cgiWriteString(out, cgiRemoteAddr)) { 
goto error; 

} 

25 if (!cgiWriteString(out, cgiAuthType)) { 

goto error; 

} 

if (!cgiWriteString(out, cgiRemoteUser)) { 
goto error; 

30 } 

if (!cgiWriteString(out ? cgiRemoteldent)) { 

goto error; 

} 

if (!cgiWriteString(out 5 cgiContentType)) { 
35 goto error; 

} 

if (!cgiWriteString(out, cgiAccept)) { 
goto error; 

} 

40 if ( ! cgiWriteString(out, cgiUserAgent)) { 

goto error; 

} 

if (!cgiWriteInt(out, cgiContentLength)) { 
goto error; 

45 } 

e = cgiFormEntryFirst; 
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while (e) { 

if (!cgiWriteString(out, e->attr)) { 
goto error; 

} 

5 if ( ! cgiWriteString(out, e->value)) { 

goto error; 

} 

e = e->next; 

} 

10 fclose(out); 

return cgiEnvironmentSuccess; 

error: 

fclose(out); 

/* If this function is not defined in your system, 
1 5 you must substitute the appropriate 

file-deletion function. */ 
unlink(filename); 
return cgiEnvironmentIO; 

} 

20 

static int cgiWriteString(FILE *out, char *s) { 
int len = strlen(s); 
cgiWriteInt(out, len); 
if (fwrite(s, 1, len, out) != len) { 
25 return 0; 

} 

return 1; 

} 

30 static int cgiWriteInt(FILE *out, int i) { 

if (!fwrite(&i, sizeof(int), 1, out)) { 
return 0; 

} 

return 1 ; 

35 } 

static int cgiReadString(FILE *out, char **s); 
static int cgiReadInt(FILE *out, int *i); 

40 

cgiEnvironmentResultType cgiReadEnvironment(char ^filename) { 
FILE *in; 

cgiFormEntry *e, *p; 
/* Free any existing data first */ 
45 cgiFreeResources(); 

/* Be sure to open in binary mode */ 
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in = fopen(filename, "rb n ); 

if (!in) { 

/* Can't access file */ 
return cgiEnvironmentIO; 

5 } 

if (!cgiReadString(in, &cgiServerSoftware)) { 

goto error; 

} 

if (!cgiReadString(in, &cgiServerName)) { 
10 goto error; 

} 

if (!cgiReadString(in, &cgiGatewayInterface)) { 
goto error; 

} 

1 5 if (!cgiReadString(in, &cgiServerProtocol)) { 

goto error; 

} 

if (!cgiReadString(in, &cgiServerPort)) { 
goto error; 

20 } 

if (!cgiReadString(in, &cgiRequestMethod)) { 

goto error; 

} 

if (!cgiReadString(in ? &cgiPathInfo)) { 
25 goto error; 

} 

if (!cgiReadString(in, &cgiPathTranslated)) { 
goto error; 

} 

30 if ( ! cgiReadString(in ? &cgiScriptName)) { 

goto error; 

} 

if (!cgiReadString(in, &cgiQuery String)) { 
goto error; 

35 } 

if (!cgiReadString(in, &cgiRemoteHost)) { 
goto error; 

} 

if (!cgiReadString(in, &cgiRemoteAddr)) { 
40 goto error; 

} 

if (!cgiReadString(in, &cgiAuthType)) { 
goto error; 

} 

45 if (!cgiReadString(in, &cgiRemoteUser)) { 

goto error; 
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} 

if (!cgiReadString(in, &cgiRemoteIdent)) { 
goto error; 

} 

if (!cgiReadString(in, &cgiContentType)) { 
goto error; 

} 

if (!cgiReadString(in, &cgiAccept)) { 
goto error; 

} 

if (!cgiReadString(in, &cgiUserAgent)) { 
goto error; 

} 

if (!cgiReadInt(in, &cgiContentLength)) { 
goto error; 

} 

P = 0; 
while (1) { 

e = (cgiFormEntry *) malloc(sizeof(cgiFormEntry)); 
if (!e) { 

cgiFreeResources(); - 
fclose(in); 

return cgiEnvironmentMemory; 

} 

if (!cgiReadString(in> &e->attr)) { 

/* This means we've reached the end of the list. 

free(e); 

break; 

} 

if (!cgiReadString(in, &e->value)) { 
free(e); 
goto error; 

} 

e->next = 0; 
if(p){ 

p->next = e; 

} else { 

cgiFormEntryFirst = e; 

} 

p = e; 

} 

fclose(in); 

cgiRestored = 1; 

return cgiEnvironmentSuccess; 

cgiFreeResourcesQ; 
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fclose(in); 

return cgiEnvironmentIO; 

} 

5 static int cgiReadString(FILE *in, char **s) { 
int len; 

cgiReadInt(in, &len); 

*s = (char *) malloc(len + 1); 

if (!(*s)) { 
10 return 0; 

} 

if (fread(*s, 1, len, in) != len) { 
return 0; 

} 

15 (*s)[len] = *\0'; 

return 1 ; 

} 

static int cgiReadInt(FILE *out, int *i) { 
20 if ( ! fread(i, sizeof(int), 1 , out)) { 

return 0; 

} 

return 1 ; 

} 

25 

static int cgiStrEqNc(char *sl, char *s2) { 
while(l) { 

if (!(*sl)) { 

if (!(*s2)) { 
30 return 1 ; 

} else { 

return 0; 

} 

}else if(!(*s2)) { 
35 return 0; 

} 

if (isalpha(*sl)) { 

if(tolower(*sl) != tolower(*s2)) { 
return 0; 

40 } 

} elseif((*sl) != (*s2)) { 
return 0; 

} 

sl++; 

45 s2++; 
} 



-236- 



} 

static char *cgiFindTarget = 0; 
static cgiFormEntry *cgiFindPos = 0; 

5 

static cgiFormEntry *cgiFormEntryFindFirst(char *name) { 
cgiFindTarget = name; 
cgiFindPos = cgiFormEntryFirst; 
return cgiFormEntryFindNext(); 

10 } 

static cgiFormEntry *cgiFormEntryFindNext() { 
while (cgiFindPos) { 

cgiFormEntry *c = cgiFindPos; 
15 cgiFindPos = c->next; 

if (!strcmp(c -> attr, cgiFindTarget)) { 
return c; 

} 

} 

20 return 0; 

} 

static int cgiFirstNonspaceChar(char *s) { 
int len = strspn(s, " \nW); 
25 return s[len]; 

} 

void cgiStringArrayFree(char **string Array) { 
char *p; 
30 p = * string Array; 

while (p) { 

free(p); 

stringArray++; 
p = * string Array; 

35 } 
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File: listen.c 

#include <stdio.h> 
5 #include <sys/types.h> 
#include <sys/socketh> 
#include <linux/in.h> 
#include <netdb.h> 



10 



15 



20 



/* 

Set captionsocket in BSD services file to a socketnumber 
9999 for example 

*/ 

/* Relay across socket to Manfred's access, 
could be simple socket, httpd on socket 80, 
or even fake an odbc! ! ! since we need only select! ! ! */ 



struct sockaddr_in theaddr = { AF_INET }; 



socket_listen() 

{ 

25 struct servent *serv, *getservbyname(); 

struct hostent *host, *gethostbyname(); 
int ss, ns, length; 
char ipbuf[44]; 

30 if( (ss=socket(AF JNET, SOCKSTREAM, 0)) < 0 ) 

{ 

puts("\nsocket() failed."); 
return(O); 

} 

35 

/* look up the address of the local host */ 
host = gethostbyname("localhost n ); 
if( host = (struct hostent *)0 ) 

{ 

40 puts("\nFailed to get host ip address for this name: V'captionY'"); 

return(O); 

} 

bcopy(host->h_addr, (char *)&theaddr, host->h_length); 
45 theaddr. sinfamily = AF_INET; 
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length = sizeof(theaddr); 

if (getsockname(ss, (struct sockaddr *)&theaddr, &length) == -1) 
{ 

close(ss); 

puts("Bad address for socket."); 
return(O); 

} 

if( (serv = getservbyname("captionsocket","tcp")) = 0 ) 
{ 

close(ss); 

puts(7etc/services does not have socket caption registered."); 
return(0); 

} 

/*theaddr.sin_port = 0;*/ 
theaddr.sin_port= serv->s_port; 

if( bind(ss, (struct sockaddr *)&theaddr, sizeof(theaddr)) < 0) 

{ 

puts("\nbind() failed."); 

close(ss); 

return(O); 

} 

if(listen(ss,(int)l)<0) 

{ 

puts("\nlisten() failed."); 
return(O); 

} 

if( (ns=accept(ss, 0, 0)) < 0 ) 
{ 

puts("\naccept() failed."); 
return(O); 

} 

close(ss); 
return(ns); 
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File: Makefile 

#You may wish to add -DNOJJNISTD and -DNOSYSTEM to CFLAGS if 
5 #your system lacks the /usr/include/unistd.h header file 
#or the system() function, respectively. 

CFLAGS = -O -DHDUU -DAUTOCONNECT 
LDFLAGS = -s 

10 

$(NATEXES):$$@.c 

$(CC) $(CFLAGS) -o $@ $? $(LDFLAGS) 

15 all: captionsock 



captionsock: captionsock.o 

gcc captionsock.o -o captionsock 



